Ado bloqueos

[micase]

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