Visual Basic - BD EN RED

SALUDOS, REALIZO UNA APLICACION QUE MANEJA UNAS TABLAS Y NECESITO QUE ESTA APLICACION FUNCIONE EN RED, CUANDO ACTIVO LA APLICACION EN DOS EQUIPOS AL MISMO TIEMPO E INTENTO GRABAR REGISTROS ME MUESTRA UN ERROR DE QUE NO PUEDO POR QUE BASE ESTA EN USO.
EL CODIGO QUE UTILIZO PARA ABRIS LA BASE ES:
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "\\SERVIDOR\RESPALDOs\OPTI\FORMULARIOS\principal1.mdb"
cn.Open
rs.Open "select * from datos", cn, adOpenKeyset, adLockOptimistic
.
.
.
.
.
RS.CLOSE
CN.CLOSE

ME IMAGINO QUE DEBO INDICAR QUE BASE DE DATOS SEA MULTIUSUARIO. COMO LO HAGO?
GRACIAS

Saludos,
Yo he hecho bastantes programas que utilizan una BD que está alojada en una localización en Red.
Yo creo que el error está en el adOpenKeySet.
Abre los registros que quieras modificar con adOpenDynamic, adLockOptimistic.

A ver si te funciona.

PD: Supongo que has seteado antes "rs" como nuevo recordset, no?
(ejemplo: set rs = new adodb.recordset)

juan, ya probe con el adOpendynamic, coloque la base de datos en una carpeta y esa carpeta la coloque como una unidad de red, todo esto segun lo que e encontrado ya que aprendo esto por mi solo, ahora bien, te detallo lo que tengo en el codigo:

coloco este codigo al iniciar la apicacion:

cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "\\GYC_ATLHON\z:\principal1_be.mdb"

en cada formulario cuando necesito utilizar la BD tengo esto:

cn.Open
rs.Open "select * from datos", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then rs.MoveFirst
.
.
.
.
rs.close
cn.close
abro y cierro cn de tanats pruebas que e realizado.

desde el equipo donde tengo el programa funciona pero desde el otro equipo en red no, me dice que no tiene coneccion, por favor si tienes un ejemplo completo te agradeceria o bien me puedes ayudar por aqui.
gracias

He realizado varios programas en RED con Ms-Access y nunca me ha salido ese error, talvez si agregas la propiedad CursorLocation a adUseClient.

Set MiConexión = New ADODB.Connection

With MiConexión
.CursorLocation = adUseClient
.Open "DSN=Neptuno"
End With