With rs
    '//Indica que el bloqueo será pesimista
    .LockEdits = True
    '//Control a rutina de mensajes: 
    On Error GoTo Err_Bloqueo
    '//Vifurca a la rutina de errores si el registro esta bloqueado
    '  por otro usuario 
    .Edit
    '//Desactiva rutina de errores 
    On Error GoTo 0
    '//Continua la edición con certeza de los nuevos valores
    If .EditMode = dbEditInProgress Then
       '//Asignación de nuevos valores a los campos
       ...
       .Update
       '//Mueve el puntero al registro modificado recientemente 
       .Bookmark = .LastModified
    Else
       '//Recupera el registro para ver los cambios realizados por otro usuario.
       .Move 0
    End If
End With
...
Err_Bloqueo:
   '//El registro se encuentra bloqueado... 
   Resume Next
...