Hola.. he estado tratando de conectar mediante ado.. una base de datos en red.. les dejo el codigo

Dim direccion
direccion = "\\SERVIDOR\almasis\repuestos.mdb"
Set cnn = OpenDatabase(direccion, False, False)
Set Rs = cnn.OpenRecordset("Select * from repuestos ORDER BY codigo ASC", dbOpenDynaset, dbOptimistic)

pero al momento de abrir el programa en un computador "X", me arroja un error "3043" "error de disco o de red", siendo que en el computador que estoy programando... me funciona correctamente!!

a que se debe.. estoy haciendo algo mal?

espero pronta respuesta ya que me urje!

Prueba con esto

On Error GoTo error
Set cn = New ADODB.Connection
'cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "\\red\bd.mdb"


cn.Open

ahi estoy declarando las en forma de ADO no es cierto?

seria algo asi no?

set cnn = New ADODB.Connection
cnn.provider = "microsoft.jet.oledb.4.0"
cnn.connectionstring = \\red\bd.mdb
Set Rs = cnn.Open("Select * from repuestos ORDER BY codigo ASC")

algo asi seria?