Visual Basic - 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