D7: ADOConnection Datamodul, aber keine Daten zur Laufzeit

[sakura]

Erst einmal als allgemeine Regel: nie mit True oder False vergleichen.

Code:

procedure TForm1.FormShow(Sender: TObject);
var DSN: string;
begin
  if ReadDSNFromRegistry(DSN) then begin
    if DataModule2.SetMeineAnwendungDSN(DSN) then
    [color=#ec0000]begin[/color]
      if [color=#ec0000]not[/color] DataModule2.OpenDatabase then begin
        MessageDlg('Es konnte keine Verbindung zur Datenbank '+
        'aufgebaut werden.', mtError, [mbOK], 0);
        DatenbankKonfiguration1Click(Sender);
      end;
    [color=#ec0000]end
    else begin
        MessageDlg('SetMeineAnwendungDSN ist fehlgeschlagen', mtError, [mbOK], 0);
    end;[/color]
  end
  else if [color=#ec0000]not[/color] DataModule2.OpenDatabase then begin
    MessageDlg('Es konnte keine Verbindung zur Datenbank '+
    'aufgebaut werden.', mtError, [mbOK], 0);
    DatenbankKonfiguration1Click(Sender);
  end
  else begin
    MessageDlg('Es konnte keine DSN ausgelesen werden.',
    mtError, [mbOK], 0);
    DatenbankKonfiguration1Click(Sender);
  end;
end;

Und nun

......