Visual Basic para Aplicaciones - Visual Basic + Access

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

OpenDynaset <-- as mirado de abrirla de otra forma? También tienes que tener en cuenta que el access no tiene integrado (o como minimo yo nunca lo ha sabido hacer) la opcion de multiusuarios accediendo a la bbdd ...

Suerte.

SMK