ADO connection string zur laufzeit verändern

[Butterflyz]

so, hab jetzt echt alles versucht... hab mich letztendlich dann doch für kevins variante entschieden - allerdings kommt jetzt beim starten der anwednung immer ein fehler:
Im Projekt fussball_em.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 004CDBAC in Modul 'fussball_em.exe'. Lesen von Adresse 00000058'. Prozess wurde angehalten. Mit Einzelen Anweisung oder Start fortsetzen.
hm... ich kann damit nicht so viel anfangen, aber hier kommen die fehler:

Delphi-Quellcode:

function TDataModule1.OpenDatabase: Boolean;
begin
  OpenDatabase := true; //hier der erste
  try
    ADOConnection1.Open;
  except
    OpenDatabase := false;
  end;
end;

Delphi-Quellcode:

function TDataModule1.EditFussballEM_DSN(var DSN: string): Boolean;
begin
  EditFussballEM_DSN := true;
  if ADOConnection1.Connected = true then //und hier der zweite
    if CloseDatabase = false then
    begin
      EditFussballEM_DSN := false;
      exit;
    end;
  if EditConnectionString(ADOConnection1) = true then
    DSN := ADOConnection1.ConnectionString
  else
    EditFussballEM_DSN := false;
end;

das prgramm läuft zwar normal weiter danach, aber wüsste trotzdem gerne was das soll? könnte es vielleicht was mit der datenbank zu tun haben und den zugriffsrechten oder so...?