AdsConnection während Laufzeit erstellen

[Cuchulainn]

Hallo,

ich beschäftige mich im Moment mit den ADS-Komponenten, um die BDE zu ersetzen. Jetzt würde ich die AdsConnection gerne während der Laufzeit erstellen. Folgendermaßen habe ich es versucht:

Delphi-Quellcode:

  slKategorien := TStringlist.Create;
  Query := TAdsQuery.Create(Query);
  AdsConn := TAdsConnection.Create(AdsConn);
  AdsConn.IsConnected := false;
  AdsConn.ConnectPath := ExtractFilePath(ParamStr(0));
  AdsConn.AdsServerTypes := [stADS_LOCAL];
  Query.DatabaseName := 'AdsConn';

Später möchte ich eine SQL-Anweisung ansführen:

Delphi-Quellcode:

  with Query do
  begin
    Close;
    Sql.Clear;
    Sql.Add('SELECT Kat_Name FROM "' + StrTabelle + '"');
    Open;
  end;

Dann kommt die Fehlermeldung, die ich an diesen Beitrag angehängt habe. Kann mir jemand sagen, wo der Fehler liegt?