Visual Basic - ADO BLOQUEOS

Tengo el siguiente codigo, el problema es el siguiente: compilo el proyecto y lo convierto en ejecutable, ejecuto dos instancias del mismo programa. me posiciono en text2 cambio el nombre de la persona y presiono BOTON EDITAR, luego en la otra instancia hago lo mismo y no me da ningun error, es decir que ado no se da cuenta que el registro cambio y sin embargo cuando le doy update en la segunda instancia me vuelve a modificar el registro y el registro ya habia cambiado aunque en la pantalla no se veia. Use bloqueo optimista y es lo mismo. Gracias

Private Sub Form_Load()
conexion.Open "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & App.Path & "\base.mdb"
registro.Open "tabla", conexion, adOpenDynamic, adLockPessimistic
end sub


Private Sub BOTON EDITAR_Click()
registro!codigo = Text1.Text
registro!nombre= Text2.Text
registro!sueldo = Text3.Text
registro.Update
registro.Requery
End Sub

siempre quedan los datos con el ultimo usuario que realiza la modificacion, y en mi opinion esto esta bien.