Private Sub PopulateTreeView(ByVal inParentID As Integer, ByRef inTreeNode As TreeNode)

        Dim ds As DataSet
        Dim da As New SqlClient.SqlDataAdapter("SELECT  PADRE, FIGLIO FROM RELAZIONI", conn)

        ds = New DataSet

        conn.Open()

        da.Fill(ds, "db")

        Dim dr As DataRow
        Dim dt As DataTable
        dt = ds.Tables("db")

        For Each dr In dt.Rows

            Dim node As TreeNode

            node = New TreeNode(dr.Item(1))
            node.Tag = dr.Item(0)
            inTreeNode.Nodes.Add(node)

        Next dr

        conn.Close()

    End Sub

    Private Sub frmMAIN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.TreeView1.Nodes.Clear()
        Me.TreeView1.Nodes.Add(New TreeNode("Elenco Padri"))
        Dim node As New TreeNode
        node = TreeView1.Nodes(0)
        node.Tag = "0"
        PopulateTreeView(0, node)
        node.ExpandAll()

    End Sub