Ho scritto questo codice per l'aggiornamento di un record del database, ma all'istruzione da.update mi da l'errore di "DBConcurrencyException non è stata gestita, Violazione di concorrenza, UpdateCommand ha modifica 0 dei 1 record previsti"


codice:
        Dim ds As New DataSet()
        Dim da As OleDb.OleDbDataAdapter = _
        New OleDb.OleDbDataAdapter("SELECT * FROM immobili WHERE rif='" & rifDaVedere & "'", cn)
        da.FillSchema(ds, SchemaType.Source, "immobili")
        da.Fill(ds, "immobili")
        Dim builder As New OleDb.OleDbCommandBuilder(da)
        Dim dr As DataRow = ds.Tables("immobili").Rows(0)

        ' ... [ ... Istruzioni di modifica dei campi ... ] ...

        da.Update(ds, "immobili")
Dove sbaglio?

Grazie!!