Public Sub PopolaCategorieArticolo()
        frmArticoliElenco.trvCategorie.Nodes.Clear()
        database.apri()
        Dim categorie As String = "SELECT * FROM tblArticoliCategorie ORDER BY DescrizioneCategoria"
        Dim cmdCategorie As New MySqlCommand(categorie, database.conn)
        Dim objDataReader As MySqlDataReader = cmdCategorie.ExecuteReader
        Dim i As Integer
       While objDataReader.Read
            If i = 0 Then
                frmArticoliElenco.trvCategorie.Nodes.Add(objDataReader("DescrizioneCategoria"))
                frmArticoliElenco.trvCategorie.Nodes(i).Nodes.Add(objDataReader("DescrizioneCategoria"))
                i = i + 1
            Else
                If objDataReader("DescrizioneCategoria") = frmArticoliElenco.trvCategorie.Nodes(i - 1).Text Then
                    frmArticoliElenco.trvCategorie.Nodes("IDNodoPadre" & -1).Nodes.Add(objDataReader("DescrizioneCategoria"))
                Else
                    frmArticoliElenco.trvCategorie.Nodes.Add(objDataReader("DescrizioneCategoria"))
                    frmArticoliElenco.trvCategorie.Nodes(i).Nodes.Add(objDataReader("DescrizioneCategoria"))
                    i = i + 1
                End If
            End If
        End While


        database.chiudi()
    End Sub