Private Sub AddConguagli(ByVal IDAnagrafica As String)

        Stringa = "File Name=Server.udl;" 'setta la variabile "stringa" come provider del db e la directory del database 'setta la variabile "stringa" come provider del db

        Dim Connection As New OleDb.OleDbConnection(Stringa)
        Connection.Open()
        Dim sqlQRY As String = "SELECT * FROM Conguagli WHERE IDAnagrafica = '" & IDAnagrafica & "'"

        Dim tab As DataTable = New DataTable()
        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
        da.SelectCommand = New OleDb.OleDbCommand
        da.SelectCommand.CommandText = sqlQRY
        da.SelectCommand.Connection = Connection
        da.SelectCommand.CommandType = CommandType.Text
        da.Fill(tab)
        da.Dispose()

        Dim i As Integer
        Dim child As TreeNode
        For i = 0 To tab.Rows.Count - 1
            child = New TreeNode(tab.Rows(i)("PeriodoPagamento").ToString() & " - " & (tab.Rows(i)("Motivo").ToString()))
            child.Tag = tab.Rows(i)
        Next
    End Su