Visual Basic - Bloqueo optimista

Tengo el siguiente error: "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. como seria la solucion??

gracias

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