[Страдалецъ]

Ну вот вам для начала, по пути запуска приложения:

Код:

procedure TfrmJournal.FormActivate(Sender: TObject);
Const
  AdoConnection = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Engine Type=5';
begin
 try
  AppDB.ConnectionString := Format(AdoConnection, [Copy(Application.ExeName,1,Length(Application.ExeName)-3)+'mdb']);
  AppDB.Open;
 except
  ShowMessage('Не удалось подключится к БД. Программа будет прервана.');
  Application.Terminate;
 end;
end;