Dim n
            n = 0

            'richiamo la connessione
            Dim StrConn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString_provaconn"))
            'creo la query
            Dim OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM Tab_rubrica ", StrConn)
            
            'creo il dataset 
            Dim dataset As New Data.DataSet
            OleDbDataAdapter.Fill(dataset)

            'Assegno ad ogni campo della colonna 9 il valore 0
            For Each row As Data.DataRow In dataset.Tables(0).Rows
                dataset.Tables(0).Rows(n).Item(9) = 0
                n = n + 1
            Next

            'Aggiorno il DataAdapter
            OleDbDataAdapter.Update(dataset)


            'chiudo la connessione e rilascio risorse
            StrConn.Close()
            StrConn.Dispose()

Public Function CreateCommandAndUpdate( _
    ByVal connectionString As String, _
    ByVal queryString As String) As DataSet

    Dim dataSet As DataSet = New DataSet

    Using connection As New OleDbConnection(connectionString)
        connection.Open()
        Dim dataAdapter As New OleDbDataAdapter()

        dataAdapter.SelectCommand = New OleDbCommand( _
            queryString, connection)

        Dim commandBuilder As OleDbCommandBuilder = _
            New OleDbCommandBuilder(dataAdapter)

        dataAdapter.Fill(dataSet)

        ' Code to modify the data in the DataSet here. 

        ' Without the OleDbCommandBuilder this line would fail.
        dataAdapter.Update(dataSet)
    End Using
    CreateCommandAndUpdate = dataSet
End Function