Access - Access + Visual Basic

que tal tengo este codigo hecho en visual

Set WrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set db = WrkJet.OpenDatabase(Ruta)
Set db = OpenDatabase(Ruta, False)
Dim rc1 As Recordset
Set rc1 = db.OpenRecordset("select codcli from clientes where codcli = 5", OpenDynaset)
rc1.LockEdits = True
rc1.Edit

cuando ejecuto este mismo codigo en otra pc un segundo despues, quiero qeu me diga que no puedo ingresar porque esta bloqueado por pc1, pero no hace nada!!
entra igual

como puedo hacer para manejar los bloqueos y que anden?

gracias

Viejo mi consejo es que utilices la propiedad connection control del objeto connection mas o menos asi ( Esto es en ADO no se como aplicaria para DAO)

Sub Que_No_Entre_Nadie()

Dim Conexion as ADODB.Connection

set Conexion = "Cadena de Conexion con las caracteristicas"

conexion.properties ("Jet OLEDB: Connection control")=1

End Sub

con la propiedad en uno a la base de datos no le entran mas usuarios y en dos puede entrar cualquier usuario.

espero que te sirva.