Treeview - Nodes erstellen anhand ID=ParentID

[_danku_]

Hi. Ihr. Ich habe ein Problem mit dem Füllen einer Treeview.
So sieht meine Tabellenstruktur aus:

ID = Primärschlüssel(Autowert)
ParentID = Zahl
Label = Text

ID______ParentID_____Label
#########################
1_________0_________Lager
2_________1_________Regal
3_________2_________Fach

Wie ihr sehen könnt, wird immer in der folgenden Zeile der ParentID-Key gleich dem ID-Key von der vorherigen Zeile gesetzt.
Hier ist der Code:

        ' FIRST level
        Set rec1 = CurrentDb.OpenRecordset("SELECT ID, Label FROM Speisen WHERE ParentID=0 AND Deleted=FALSE ORDER BY Label;")
        While rec1.EOF = False
            tempstring = IIf(IsNull(rec1("Label")), "", rec1("Label"))

            ' Parent setzen
            Set parent = SelectSpeisenTreeview.Nodes.Add(, , "ID" & rec1("ID"), tempstring)

            ' -------------
            ' SECOND level
            Set rec2 = CurrentDb.OpenRecordset("SELECT ID, Label FROM Speisen WHERE ParentID=" & rec1("ID") & " AND Deleted=FALSE ORDER BY Label;")
            While rec2.EOF = False
                tempstring = IIf(IsNull(rec2("Label")), "", rec2("Label"))
                
                ' Child setzen
                SelectSpeisenTreeview.Nodes.Add SelectSpeisenTreeview.Nodes("ID" & rec1("ID")), tvwChild, "ID" & rec2("ID"), tempstring
                
                ' -----------
                ' THIRD level
                Set rec3 = CurrentDb.OpenRecordset("SELECT ID, Label FROM Speisen WHERE ParentID=" & rec2("ID") & " AND Deleted=FALSE ORDER BY Label;")
                While rec3.EOF = False
                    tempstring = IIf(IsNull(rec3("Label")), "", rec3("Label"))
                   
                    ' Child setzen
                    SelectSpeisenTreeview.Nodes.Add SelectSpeisenTreeview.Nodes("ID" & rec1("ID")), tvwChild, "ID" & rec3("ID"), tempstring
                        
                rec3.MoveNext
                Wend
                    
            rec2.MoveNext
            Wend
                
        rec1.MoveNext
        Wend

Die Parent-Node und der 1.Node werden angezeigt aber nicht der 2.Node (Third level)
wer kann mir helfen?

 

[danku]

Ich hab den Fehler gefunden.
Im letzten Knoten muss als Parentknoten der 2. und nicht der 1. ausgewählt werden..