Private Sub initTreeView()
        TVArtikelverwaltung.Nodes.Clear()
        Try
            Dim parentrow As DataRow
            Dim ParentTable As DataTable
            Dim i As Integer = 1
            Dim j As Integer = 101
            Dim k As Integer = 1001
            ParentTable = LagerDB.Tables("Warengruppen")
            TVArtikelverwaltung.Nodes.Add("Artikelstamm")
            TVArtikelverwaltung.Nodes(0).Tag = "0"
            For Each parentrow In ParentTable.Rows
                Dim parentnode As TreeNode
                parentnode = New TreeNode(CStr(parentrow.Item(1))) ' Hier wird 
                ' dem Objekt die erste Zeile der zweiten Spalte übergeben
                TVArtikelverwaltung.Nodes(0).Nodes.Add(parentnode) ' wird am 
                ' ersten Ast ein Zweig hinzugefügt welches unseren Anzeigetext 
                ' und den Tag enthält
                parentnode.Tag = CStr(i)
                i += 1
                ''''populate child'''''
                '''''''''''''''''''''''
                Dim childrow As DataRow
                Dim childnode As TreeNode
                childnode = New TreeNode()
                For Each childrow In parentrow.GetChildRows( _
                  "Warengruppen_Artikelgruppen")
                    childnode = parentnode.Nodes.Add(childrow(1).ToString)
                    childnode.Tag = CStr(j)
                    ''''populate child2''''
                    ''''''''''''''''''''''''''
                    Dim childrow2 As DataRow
                    Dim childnode2 As TreeNode
                    childnode2 = New TreeNode()
                    j += 1
                    For Each childrow2 In childrow.GetChildRows( _
                      "Artikelgruppen_Artikel")
                        childnode2 = childnode.Nodes.Add(childrow2(3).ToString)
                        childnode2.Tag = CStr(k)
                        k += 1
                    Next childrow2
                    ''''''''''''''''''''''''
                Next childrow
                '''''''''''''''
            Next parentrow
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub