Public Sub riempigriglia(ByVal oGriglia As WebControls.GridView, ByVal cQuery As String, ByVal cNomeTab As String)
    'associo al datagrid la query
    Dim da As New MySqlDataAdapter(cQuery, cn)
    Dim cmb As New MySqlCommandBuilder(da)
    Dim ds As New DataSet
    da.Fill(ds, cNomeTab)
    oGriglia.DataSource = ds.Tables(cNomeTab).DefaultView
    oGriglia.DataBind()
    oGriglia.EmptyDataText = "Nessun record presente in archivio"
  End Sub