Private Sub Option1_Click() Adodc1.LockType = adLockReadOnly End Sub Private Sub Option2_Click() Adodc1.LockType = adLockOptimistic End Sub
