Есть такой способ чтобы это сделать!
Например: создаешь на главной форме MainMenu в нём прописываешь к примеру Настройка пути к БД! В нем прописываешь такой вот код:
PHP код:
var
N1,N2,S1:string;
label m;
begin
Assignfile(P1,'Имя файла куда будет писать путь, например idintifik.ini');
Rewrite(P1);
N1:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
N2:=';Persist Security Info=False';
opendialog1.execute;
S1:=opendialog1.filename;
if s1='' then
begin
MessageDlg('',mtError,[mbok],0);
goto m;
end;
DataModule1.ADOConnection1.ConnectionString:=N1+S1+N2;
Write(P1,s1);
m:closefile(P1);
end;
Далее на главной форме в событии OnShow прописываешь:
PHP код:
label m;
var constr:string;
N1,N2:string;
begin
N1:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
N2:=';Persist Security Info=False';
Assignfile(P1,'idintifik.ini');
{$I-}
reset(P1);
{$I+}
if IOResult<>0 then
begin
Application.MessageBox('Не найден файла настройки пути','Ошибка!',MB_OK);
goto m;
end;
read(P1,constr);
DataModule1.ADOConnection1.ConnectionString:=n1+constr+n2;
Closefile(P1);
m:end;
В ADOConnection делай поле пустым!
Далее запускай программу, нажимай настройка пути к БД и указывай путь к БД .mdb!