Hola
Es muy sencillo, te lo explico paso a paso:
Veo que tienes el AdoConnection en un Datamodule, en tu caso:
dmModuloDatos
1- Datamodule: (dmModuloDatos)
Vamos a colocar en el USES del Datamodule
IniFiles asi:
Código Delphi
[-]
uses
SysUtils, Classes, DB, ADODB, IniFiles, Forms, Dialogs;
Posicionate en la parte BLANCA del dataModule y dale doble Click, eso te genera el evento OnCreate del datamodule.
Coloca esto:
Código Delphi
[-]
procedure TdmModuloDatos.dmModuloDatosCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
IniFile: TIniFile;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BD.ini');
BasedeDatos := IniFile.ReadString('BD','Path','');
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+BaseDeDatos+';'+
'Persist Security Info=False;'+
'Jet OLEDB: Database Password=admin';
ADOConnection2.ConnectionString := ConStr;
ADOConnection2.Open;
end;
Listo, asi de simple, el programa arranca, revisa el datamodule, busca el archivo ini, recoge la informacion y ya.
El archivo ini tiene que estar en la misma carpeta que el EXE del programa para que lo encuentre, la DB puede estar donde sea, la direccion se la dara el ini.
Pongo aqui uno hecho para que simplemente le cambies la direccion (path) a la que necesites (actualmente tiene la misma direccion que pusiste tu).
Saludos
PD: Si se me olvida algo grita......