Dim con As New System.Data.OleDb.OleDbConnection
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\forum.mdb;Persist Security Info=False"
        Dim reader As System.Data.OleDb.OleDbDataReader
        Dim stringasql As String = "SELECT ID, Autore, Data, Testo FROM Discussione"
        Dim cmd As New System.Data.OleDb.OleDbCommand(stringasql, con)
        con.Open()
        reader = cmd.ExecuteReader
        Do While reader.Read
            TreeView1.Nodes.Add(New TreeNode(reader("testo").ToString, reader("ID").ToString))
            Dim reader2 As System.Data.OleDb.OleDbDataReader
            Dim stringasql2 As String = "SELECT ID, iddiscussione, Data, Autore, Note FROM Risposte where iddiscussione=" & reader("ID").ToString
            Dim cmd1 As New System.Data.OleDb.OleDbCommand(stringasql2, con)
            reader2 = cmd1.ExecuteReader
            Do While reader2.Read
                TreeView1.FindNode(reader("ID").ToString).ChildNodes.Add(New TreeNode(reader("testo").ToString))
            Loop
        Loop
        con.Close()