Fehler bei zugriff auf Access DB

[Gehstock]

Delphi-Quellcode:

Procedure OpenDB;
var
st: TStringList;
i: integer;
tnodes : TTreeNodes;
node : TTreeNode;
begin
tnodes := frmmain.TreeView1.Items;
st:=TStringList.Create;
frmmain.ADOConnection1.GetTableNames(st,False);
frmmain.TreeView1.Items.Clear;
for i:=0 to st.Count - 1 do begin
while frmmain.ADOQuery1.Active do
        frmmain.ADOQuery1.Close;
        frmmain.ADOQuery1.SQL.Text := 'select * from '+st.Strings[i];
        frmmain.ADOQuery1.Open;
        node := tnodes.Add(nil,st.Strings[i]+inttostr(frmmain.ADOQuery1.RecordCount));
        While Not frmmain.ADOQuery1.Eof do begin
          tnodes.AddChild(node, frmmain.ADOQuery1.FieldByName('Feld1').AsString);
          frmmain.ADOQuery1.Next;
  end;
    end;
st.Free;
end;

Danke klappt