AV beim Start mit DB-Module

[Mackhack]

Hallo,

ich habe folgenden Code(-ausschnitt)

Delphi-Quellcode:

procedure TfoLogin.FormShow(Sender: TObject);
var
  UserList: TStrings;
  I: Integer;
begin
  //alle Usernamen auslesen
  UserList := TStringList.Create;
  UserList.Add('Bitte wählen');
  with DBModule.AdsQuery do
  begin
    Active := False;
    SQL.Text := 'SELECT ID, FirstUsername, LastUsername FROM User ORDER BY ID';
    Active := True;

und jedesmal wenn ich das Programm starte bekomme ich folgende Fehlermeldung:

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project Post.exe raised exception class EAccessViolation with message 'Access violation at address 004BD8FF in module 'Post.exe'. Read of address 00000068'.
---------------------------
Break Continue Help
---------------------------

Der Fehler tritt auf an der Stelle

with DBModule.ADSQuery do In der uDataModule sieht es so aus:

Delphi-Quellcode:

procedure TDBModule.DataModuleCreate(Sender: TObject);
var
  AppDir : String;
begin
  try
    AdsConnection1.AdsServerTypes := [stAds_LOCAL];
    if ( not AdsConnection1.IsConnected ) then
    begin
      AppDir := ExtractFilePath(Application.ExeName);
      AdsConnection1.ConnectPath := AppDir + 'Database\' + 'PostDB.add';
      AdsConnection1.IsConnected := True;
    end
  except
    AdsConnection1.Disconnect;
    ShowMessage('Database "'+ AdsConnection1.ConnectPath + '" could not be connected!');
  end;
end;

Weis jemand woran das liegen koennte?

Danke!