Public Sub riempigriglia(ByVal griglia As WebControls.DataGrid, ByVal query As String, ByVal nomeTab As String)
      'associo al datagrid la query
      Dim cn As New OleDb.OleDbConnection(setCnString)
     cn.Open()
    Dim cmd As New OleDb.OleDbDataAdapter
    Dim dati As DataSet
    cmd = New OleDb.OleDbDataAdapter(query, cn)
    dati = New DataSet
    cmd.Fill(dati, nomeTab)
    Dim source As DataView = dati.Tables(nomeTab).DefaultView
    griglia.DataSource = source
    griglia.DataBind()
    cn.Close()
 End Sub