[Homo-Fantasmus]

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
AppDB:Variant;
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;

Спасибо