RE:AYUDA POR FAVOR.....!!!
Muchas gracias por contestar, pero no me ha funcionado, la conexion a la base de datos y la apertura de la tabla las hago así:
Dim Prueba As ADODB.Connection
Dim Rs As ADODB.RecordSet
Set Prueba = New ADODB.Connection
Prueba.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.mdb;Persist Security Info=False"
Prueba.Open
Set Rs = New ADODB.RecordSet
RPrueba.Source = "SELECT * FROM tabla1 WHERE clave = 1"
Rs.ActiveConnection = Prueba
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockPessimistic
Rs.Open
Esto no evita que la misma aplicación abra el registro con CLAVE=1 de TABLA1 si acaso ya fue abierto por otra aplicación.
Ya probé con las diferentes características de LockType y CursorLocation y no me ha funcionado.