Public Sub CreateTreeView(ByVal MyTV As TreeView)
 
        Dim MyDs As System.Data.DataSet
        Dim MySubDs As System.Data.DataSet
        Dim BL As New BusinessLogic.Classes.SP_MySQL
 
        MyDs = BL.ClassOfGoods
 
        Dim MyRow As System.Data.DataRow
        Dim MySubRow As System.Data.DataRow
        Dim TN As TreeNode
        Dim TNS As TreeNode
 
        'Hauptkategorien laden
        For i As Integer = 0 To MyDs.Tables(0).Rows.Count - 1
            MyRow = MyDs.Tables(0).Rows(i)
 
            TN = New TreeNode(MyRow.Item(1), MyRow.Item(0).ToString, "", "", _
              "_self")
 
            'Unterkategorien laden
            MySubDs = BL.ClassOfGoodsSub(MyRow.Item(0))
 
            If MySubDs.Tables(0).Rows.Count > 0 Then
 
                For k As Integer = 0 To MySubDs.Tables(0).Rows.Count - 1
                    MySubRow = MySubDs.Tables(0).Rows(k)
 
                    TNS = New TreeNode(MySubRow.Item(1), MySubRow.Item( _
                      0).ToString, Nothing, "", "_self")
                    TN.ChildNodes.Add(TNS)
 
                Next
            End If
 
            MyTV.Nodes.Add(TN)
 
        Next
 
 
    End Sub

Ciao

J?rgen

PS: geht nicht gibt's nicht