Hallo Gambit,
ich meine, du könntest die beiden Zeilen:
Delphi-Quellcode:
AdoQuery1.ExecSQL;
ADOConnection1.Connected:= true;
noch einsparen. Ein SELECT Statement wird nicht mit ExecSQL, sondern mit Open ausgeführt. Das Open folgt ja kurz darauf. Die Verbindung sollte ja schon hergestellt sein, sonst könntest du das erste Statement nicht ausführen.