Sub Nodeadd(ByVal Text As String, ByVal dTag As String)
        Dim aTreenode As New TreeNode
        aTreenode.Text = Text
        aTreenode.Tag = dTag
        If TV_Struktur.Nodes.Count = 0 Then
            TV_Struktur.Nodes.Add(aTreenode)
        Else
            TV_Struktur.SelectedNode.Nodes.Add(aTreenode)
        End If
        TV_Struktur.ExpandAll()
        TV_Struktur.Select()
    End Sub
 
    Sub baumbau(ByVal PID As Long)
        Dim i, c As Long
        Dim objBS1 As New BindingSource
        objBS1 = getBS(objDS, "baum")
        objBS1.Filter = "PID=" & PID.ToString
        c = objBS1.Count
        objBS1.MoveFirst()
        For i = 0 To c - 1
            Nodeadd(objBS1.Current("PID").ToString, objBS1.Current("UID"))
            baumbau(objBS1.Current("UID"))
            objBS1.MoveNext()
        Next
    End Sub