07. Использование ключевого слова UPDATE в запросах позволит вам обновить сразу много записей.
Private Sub butExecute_Click()
Dim dbs As Database
On Error GoTo 999
Set dbs = CurrentDb
dbs.Execute "UPDATE [Пример 07] SET [Цена] = [Цена]+" Me.Delta ";"
MsgBox "Цена в таблице [Пример 07] изменена!", vbExclamation
Exit Sub
999:
MsgBox Err.Description, vbCritical, "Создание поля"
Err.Clear
End Sub