ADO connection string zur laufzeit verändern

[Butterflyz]

danke für den link, aber irgendwie klappt das alles nicht so recht... ich habe mir überlegt, dass es eigentlich auch reichen würde, wenn das programm vor jedem start guckt, ob sich die datenbank im rootverzeichnis befindet, aber jetzt kriege ich beim öffnen einen fehler von wegen zugriffsverletzung bei adresse bla bla bla....
hier die prozedur:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if DataModule1.ADOConnection1.Connected = false then
  try
    DataModule1.ADOConnection1.ConnectionString := GetCurrentDir+'data.mdb';
    DataModule1.ADOConnection1.Open;
    showmessage(datamodule1.ADOConnection1.ConnectionString);
  except
    MessageDlg('Es befindet sich keine Datenbank im Programm-Verzeichnis!',
    mtError, [mbOK], 0);
    halt;  //hier kommt der fehler
  end;