Abrir base de datos Access desde otra pc en LAN, utilizando VB6

Hola:

Tengo un programa en VB6, utilizó ADO para abrir base de datos en ACCESS.

en RED LAN

En esta forma, abre la BD pero no el Recordset a una tabla, el programa se pierde sin marcar error

PC1 (con la BD ACCESS) <<<------PC2 ( ejecuta el PROGRAMA VB6)

Al invertir el orden funciona perfectamente, abre el recordset y todo muy bien.
PC1 (ejecuta el PROGRAMA VB6) ------>>> PC2( con la BD ACCESS)

El código es el siguiente:

Dim cnn3 as new ADODB.Connection

Dim RS as new ADODB.Recordset

cnn3.open "DBQ=c:\BaseDatos.MDB;DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;PWD=prueba;SafeTransactions=100;Threads=3;NO OBSTANTE=admin;UserCommitSync=Yes;

En esta linea siguiente es donde el programa simplemente desaparece, se pierde sin marcar error, cuando lo ejecuto desde PC2 para abrir la base de datos que esta en PC1.

Y cuando pongo la base de datos en PC2 y corro el programa desde PC1 si abre el recordset y ffunciona perfectamente.

RS.open "Select * from Tabla1 order by Nombre",cnn3, adOpenKeyset, adLockReadOnly

POR FAVOR AYUDA !!!

Añade tu respuesta

Haz clic para o