Sub estrai()
        Dim strconn As String
        Dim ds As New DataSet()
        Dim conn As SqlConnection
        strconn = "Data Source=PC-MAURIZIO; Initial Catalog=NOTIFICHE;Integrated Security=SSPI"
        conn = New SqlConnection(strconn)
      Dim selez as String = "select not_comunicazione, not_opera, not_indirizzo, not_localita, not_committente, not_comm_cf, not_responsabile,   not_resp_cf, not_coord1, not_cor1_cf, not_inizio, not_fine, not_impresa, not_impr_cf, not_comune, not_importo from notifiche_01"
       conn.Open()
        Dim adapter As New SqlDataAdapter(selez, conn)
        adapter.Fill(ds)
       gv.DataSource = ds
        gv.DataBind()
        conn.Close()
        risultato.InnerHtml = "<a href='?op=ins'>Inserisci nuovo</a>"
        form_blocco.Visible = False
    End Sub