Como Quitar Modo Exclusivo De BD Por Conexion ADO -- Visual 6.0

MathBarlow

Lanero Regular
22 May 2006
18
La conexion a la BD (Acces) es por ADO y la hago asi:
'*************************************
Tengo en un modulo:
'*************************************
Public ruta As String
Public SQL As String
Public cnn As ADODB.Connection
Public recor As ADODB.Recordset
Sub abrir()
Set cnn = New ADODB.Connection
ruta = App.Path & "\BD.mdb"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta

End sub
'*************************************
Lo Ejecuto Asi
'*************************************
abrir
Set recor = New ADODB.Recordset
SQL = "SELECT NombreUsuario FROM Usuarios"
recor.Open (SQL), cnn, adOpenKeyset, adLockOptimistic
'*************************************
Todo funciona perfecto si se abre el programa en un solo PC,

El Problema Es que en el procedimiento abrir() me abre la base de datos en Modo Exclusivo y si abren el programa en el 2 PC (Cliente) aparece el mensaje de error de "No se pudo Bloquear El Archivo" o si se va a vincular un tabla dice que la base de datos ya esta abierta, - creo que necesito evitar el archivo .ldb que crea acces al abrir la base de datos. -

LA PREGUNTA ES : como Hago para NO abrir la BD en Modo Exclusivo Por conexion ADO??