Dim elenco_clienti As String = "SELECT aperto, id AS 'Cod.', ragione_sociale_1 AS 'Ragione Sociale', indirizzo_1 AS 'Indirizzo', CAP, Comune, Provincia FROM ditte ORDER BY ragione_sociale_1"
        Dim Adattatore As New MySqlDataAdapter(elenco_clienti, db.connessione)
        Dim Tabella As New DataTable
        Try
            Adattatore.Fill(Tabella)
            Adattatore.Dispose()
            frmElencoClienti.dgwClienti.Columns(0).Visible = False
            db.disconnetti()
        Catch ex As Exception
            db.disconnetti()
            MsgBox(ex.Message)
        End Try