query = "SELECT Autori.id AS ID, Autori.Nome AS Nome From Autori Order By Autori.Nome ASC "
        Dim VisualizzaAutori As New MySql
        VisualizzaAutori.Login()
        Dim data_visualizzaautori = VisualizzaAutori.RiempiDataGrid(query)
        VisualizzaAutori.Logout()
        volumi_modifica_autore1.DataSource = data_visualizzaautori
        volumi_modifica_autore1.DisplayMember = "Nome"
        volumi_modifica_autore1.ValueMember = "ID"
        volumi_modifica_autore2.DataSource = data_visualizzaautori
        volumi_modifica_autore2.DisplayMember = "Nome"
        volumi_modifica_autore2.ValueMember = "ID"
        volumi_modifica_autore3.DataSource = data_visualizzaautori
        volumi_modifica_autore3.DisplayMember = "Nome"
        volumi_modifica_autore3.ValueMember = "ID"
        volumi_modifica_autore4.DataSource = data_visualizzaautori
        volumi_modifica_autore4.DisplayMember = "Nome"
        volumi_modifica_autore4.ValueMember = "ID"
        volumi_modifica_autore5.DataSource = data_visualizzaautori
        volumi_modifica_autore5.DisplayMember = "Nome"
        volumi_modifica_autore5.ValueMember = "ID"
        volumi_modifica_autore6.DataSource = data_visualizzaautori
        volumi_modifica_autore6.DisplayMember = "Nome"
        volumi_modifica_autore6.ValueMember = "ID"
        volumi_modifica_autore7.DataSource = data_visualizzaautori
        volumi_modifica_autore7.DisplayMember = "Nome"
        volumi_modifica_autore7.ValueMember = "ID"
        volumi_modifica_autore8.DataSource = data_visualizzaautori
        volumi_modifica_autore8.DisplayMember = "Nome"
        volumi_modifica_autore8.ValueMember = "ID"
    Protected Friend Sub Login()
        conn.Close()
        Dim user As String = My.Settings.utentedb
        Dim password As String = My.Settings.passworddb
        Dim ipAddress As String = My.Settings.indirizzodb
        Dim myDatabase As String = My.Settings.nomedb
        Dim myport As String = My.Settings.portadb
        conn.ConnectionString = "server=" & ipAddress & ";port=" & myport & ";user id=" & user & "; password= " & password & " ;database=" & myDatabase & ""
        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()
            End If
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Protected Friend Sub Logout()
        If Not conn.State = ConnectionState.Closed Then
            conn.Close()
            conn.Dispose()
        End If
    End Sub
    Function RiempiDataGrid(ByVal querysql As String)
        Dim myAdapter As MySqlDataAdapter
        Dim table As DataTable
        Try
            myAdapter = New MySqlDataAdapter(querysql, conn)
            table = New DataTable
            myAdapter.Fill(table)
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
            Return False
            Exit Function
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
            Exit Function
        End Try
        Return table
    End Function