Dim parentrow As DataRow
        Dim ParentTable As DataTable
        ParentTable = ds.Tables("Select")
 
        Dim firstLaunch As Boolean = True
 
        For Each parentrow In ParentTable.Rows
            Dim parentnode As TreeNode
            parentnode = New TreeNode(parentrow.Item(1))
 
            If firstLaunch = True Then
                TreeView1.Nodes.Add(parentnode)
                firstLaunch = False
            End If
 
            Dim doesExist As Boolean = False
            For Each nd As TreeNode In TreeView1.Nodes
                If nd.Text = parentrow.Item(1).ToString Then
                    doesExist = True
                    Exit For
                End If
            Next nd
 
            If doesExist = False Then
                Try
                    TreeView1.Nodes.Add(parentnode)
                Catch ex As Exception
                End Try
            End If
 
            Dim childrow As DataRow
            Dim childnode As TreeNode
            childnode = New TreeNode()
 
            For Each childrow In ParentTable.Rows
                If parentnode.Text = childrow.Item(1).ToString Then
                    childnode = parentnode.Nodes.Add(childrow(2))
                End If
            Next childrow
        Next

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################