Dim con As ADODB.Connection
Dim rc As ADODB.Recordset
'Creas una nueva conexión con el proyecto actual, en pesimista no puedes usar
'directamente CurrentProject.Connection al crear el recordset, o no debes.
Set con = New ADODB.Conncection
con.Open CurrentProject.BaseConnectionString
'Así se crea y abre con bloqueo pesimista un Recordset de una tabla
Set rc=New ADODB.Recordset
rc.Open "[tabla]", con, adOpenKeyset, adLockPessimistic, adCmdTable
'Ejemplo de realizar cambio y guardar, aqui es donde se bloquea.
rc.Fields("[campo]").Value = "[Nuevo Valor]"
rc.Update
rc.Close
Marcadores