'Dim SELEZIONA As New System.Data.OleDb.OleDbCommand()
    'SELEZIONA.Connection = con
    'SELEZIONA.CommandText = " SELECT ID, DATA_INSERIMENTO, COGNOME, NOME, TIPO, TIPO_CLT, STATO FROM INSERIMENTI WHERE [USER] = '" & Session("USERNAME") & "'"


    'Dim da As New System.Data.OleDb.OleDbDataAdapter(SELEZIONA, con)
    'Dim ds As New Data.DataSet
    'da.Fill(ds)
    'DGW1.DataSource = ds.Tables(0)

    ''setto i titoli e allineamento per le colonne
    'DGW1.Columns(0).HeaderText = "ID"
    'DGW1.Columns(1).HeaderText = "DATA INSERIMENTO"
    'DGW1.Columns(2).HeaderText = "COGNOME"
    'DGW1.Columns(3).HeaderText = "NOME"
    'DGW1.Columns(4).HeaderText = "TIPO CONTRATTO"
    'DGW1.Columns(5).HeaderText = "TIPO CLIENTE"
    'DGW1.Columns(6).HeaderText = "STATO CONTRATTO"
    'DGW1.Visible = True