Wie kann ich das Zusammenklappen eines DB-Baums verhindern?

[newgro]

Hi *,

ich benutze einen TDTADOTree. Dem gebe ich eine Datasource und eine Abfrage (Join auf 2 Tabellen).
Wenn ich einen Eintrag aus diesem Baum ändere und danach die Abfrage erneut ausführe, damit der Baum
aktualisert wird klappt er zusammen. Wie kann ich das verhindern (Methode oder Eigenschaft des Baums ändern)?

Delphi-Quellcode:

procedure store;
begin
  // hole die id des geänderten DS
  // ändere die Daten
  refreshTree;
end;

procedure refreshTree;
begin
  if query.Active then
    query.Close;
  query.Open;
end;

Danke
Per