Dim nod As Node
 
    For i = 0 To Kategorie.RecordCount - 1
        Rel = Kategorie("Data")
        Name = Kategorie("Name")
        Set RS = Export.OpenRecordset(Rel)
        Set nod = frmMain.trvAuswahl.Nodes.Add(, , Rel, Name)
        For y = 0 To RS.RecordCount - 1
            Name1 = RS("Name")
            Set nod = frmMain.trvAuswahl.Nodes.Add(Rel, tvwChild, , Name1)
            RS.MoveNext
        Next y
        RS.Close
        Kategorie.MoveNext
    Next i
    Kategorie.Close