Dim DA As SqlDataAdapter 'crea il dataadapter
        Dim SQL As String

        Try
            'Query
            SQL = "SELECT id,comune,provincia,cap " & _
                  "FROM comuni ORDER BY comune"

            Cn.Open() 'Apro la connessione al DB

            DS = New DataSet("comuni ") 'Creo il DataSet
            DA = New SqlDataAdapter(SQL, Cn) 'Effettuo la query sul DB
            DA.Fill(DS, "comuni ") 'Riempio il DataSet

            BS = New BindingSource() 'BindingSource
            BS.DataSource = DS 'Associo il DataSet al BindingSource
            BS.DataMember = "comuni "

            'DataGridView
            dgwComuni.DataSource = BS

            dgwComuni.Columns.Item(0).Visible = False
            dgwComuni.Columns.Item(1).CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            dgwComuni.Columns.Item(1).HeaderText = "Comune"
            dgwComuni.Columns.Item(1).Width = 100
            dgwComuni.Columns.Item(2).CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            dgwComuni.Columns.Item(2).HeaderText = "Provincia"
            dgwComuni.Columns.Item(2).Width = 70           
            dgwComuni.Columns.Item(3).CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            dgwComuni.Columns.Item(3).HeaderText = "CAP"
            dgwComuni.Columns.Item(3).Width = 100

            dgwComuni.AllowUserToResizeRows = False

            dgwComuni.Select()

            Cn.Close() 'Chiudo la Connessione
        Catch ex As Exception
            MessageBox.Show("Errore: " & ex.Message.ToString, "Carica Comuni nel DGW", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            If Cn.State = ConnectionState.Open Then 'Se la connessione al DB è aperta
                Cn.Close() 'Chiudo la Connessione
            End If
            Exit Sub
        End Try