Private Sub Veicoli_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        strSQL = "SELECT * FROM Veicoli Where ID_Anagrafica = '" & Label6.Text & "'"
        Dim data_Adapter As MySqlDataAdapter
        ' Create the SqlDataAdapter.
        data_Adapter = New MySqlDataAdapter(strSQL, Connection)
        ' Map Table to Contacts.
        data_Adapter.TableMappings.Add("Table", "Veicoli")
        ' Fill the DataSet.
        m_DataSet = New DataSet()
        data_Adapter.Fill(m_DataSet)
        ' Bind the DataGrid control to the Contacts DataTable.
        'DataGrid1.SetDataBinding(m_DataSet, "authors")
        DataGridView1.DataSource = m_DataSet
        DataGridView1.DataMember = "Veicoli"
        'Dichiaro le colonne (se non si dichiarano vengono create in base alla tabella)
        With DataGridView1
            .RowHeadersVisible = False
            .Columns(0).HeaderCell.Value = "TARGA"
            .Columns(1).HeaderCell.Value = "VEICOLO"
            .Columns(2).HeaderCell.Value = "DATA INSERIMENTO"
            .Columns(3).HeaderCell.Value = "ID ANAGRAFICA"
        End With
        'Definisco la larghezza di ogni singola colonna in pixel
        DataGridView1.Columns(0).Width = 100
        DataGridView1.Columns(1).Width = 230
        DataGridView1.Columns(2).Width = 100
        DataGridView1.Columns(3).Width = 100
        'Allineo il titolo delle colonne
        DataGridView1.Top = 0
        DataGridView1.Left = 0
        DataGridView1.Width = Me.Width
        DataGridView1.Height = Me.Height
        DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        'allineo il contenuto delle colonne
        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        'Nascondo la colonna 
        Me.DataGridView1.ColIDVeicoli()
        'Aggiungo un button alla griglia
        Dim btn As New DataGridViewButtonColumn()
        DataGridView1.Columns.Add(btn)
        btn.HeaderText = "Modifica"
        btn.Text = "Modifica"
        btn.Name = "btn"
        btn.UseColumnTextForButtonValue = True
    End Sub