Public Sub CompilaData(ByVal Festa As Long, ByVal tipopar As Long)
        Dim dbConnection As New SqlConnection("Data Source=PC\SQLEXPRESS;Initial Catalog=festaman;Integrated Security=True")

        Dim quer As New SqlDataAdapter("select * from tabella, dbConnection)
        Try
            Dim ds As New DataSet
            quer.Fill(ds, "MyTable")
            Form1.DataGridView1.DataSource = ds.Tables("MyTable").DefaultView
            Form1.DataGridView1.Columns(0).Visible = False
            Form1.DataGridView1.Columns(1).Width = 300
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            dbConnection.Close()

        End Try
    End Sub