Ado bloqueos

[micase]

probe con sql server y me da otros errores: "error en la comprobacion de simultaneidad optimista, se modifico la fila fuera de este cursor" esto es asi cuando pasa lo siguiente: el ususario A y B hacen una consulta, B se va al baño, A modifica un dato. B vuelve y trata de modificar ese mismo dato. cuando trata de modificarlo salta un error y el programa sigue pero cuando intenta hacer recordset.movenext el error es el indicado arriba. pero antes de hacer movenext ejecuta la rutina de error


Private Sub Form_Load()
conexion.Open "Provider=SQLNCLI;datasource=(local);initial catalog=base3; user id=borra12; password=borraborra;"
Set registro.ActiveConnection = conexion
registro.Properties("Preserve On Commit") = True
registro.Properties("Preserve On Abort") = True
registro.Open "tabla", conexion, adOpenDynamic, adLockOptimistic
Set Adodc1.Recordset = registro
end sub

Private Sub EDITAR_Click()
On Error GoTo errores
conexion.BeginTrans
registro!codigo = Text1.Text
registro.Fields("nombre").Value = Text2.Text
registro!sueldo = Text3.Text
registro.Update
MsgBox ("Guardado")
conexion.CommitTrans
Exit Sub
errores:
MsgBox ("hubo un error")
conexion.RollbackTrans
End Sub


private sub siguiente_click()
registro.MoveNext
If registro.EOF = True Then
registro.MoveLast
Exit Sub
End If
Text1.Text = registro!codigo
Text2.Text = registro!nombre
Text3.Text = registro!sueldo
end sub