He bajado tu código, amigo DeNiro... Verás qué sencillo es corregir el problema del error que provoca siempre al iniciarse la aplicación:
En el Adodc1 modifica la propiedad ConnectionString. Define
Data Source=Peliculas.mdb (quita de ahí la ruta que tienes, que se corresponde a tu equipo...)
Haz lo mismo en el DataEnvironment: En ConnectionSource de Connection1, pones
DBQ=Peliculas.mdb; y
FILEDSN=Peliculas.mdb, quitando también la referencia a la ruta de tu equipo...
Y ya verás qué pasa...
Ah... Y ya puedes eliminar todas las líneas en que defines la ubicación de la base de datos:
Código:
Call LeerRegistro 'pillamos los valore del registro
'Cogemos la ruta de la BD en el registro
BD = GetSetting("GestionDePeliculas", "BD", "RutaBD")
'ASIGNAMOS AL ADODC LA NUEVA BASE DE DATOS
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & BD & ";Persist Security Info=False"
Adodc1.RecordSource = "Select * from Peliculas order by titulo"
'asignamos el ConnectionString del Informe para previsualizar
DataEnvironment1.Connection1.ConnectionString = "Provider=MSDASQL.1;" & _
"Persist Security Info=False;Extended Properties=DBQ=" & BD & ";" & _
"DefaultDir=" & App.Path & ";Driver={Microsoft Access Driver (*.mdb)}" & _
";DriverId=25;FIL=MS Access;FILEDSN=" & BD & ".dsn;MaxBufferSize=2048;" & _
"MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;" & _
"UserCommitSync=Yes;"
On Error GoTo ErrorBD
Adodc1.Refresh Todas esas líneas, sobran... Así como las funciones llamadas en esas líneas (LeerRegistro, GetSetting...)
Mode Lineal
