CurrentDb.Execute "UPDATE MyTable SET Field1 = 0" [COLOR="Green"]'sets all field1 to 0[/COLOR]
   Debug.Print DLookup("Field1", "MyTable")          [COLOR="Green"]'displays 0 in the immediate pane[/COLOR]
   DBEngine(0).BeginTrans
   CurrentDb.Execute "UPDATE MyTable SET Field1 = 1" [COLOR="Green"]'set all field1 to 1[/COLOR]
   Debug.Print DLookup("Field1", "MyTable")         [COLOR="Green"] 'still displays 0 in the immediate pane[/COLOR]
   DBEngine(0).CommitTrans
   Debug.Print DLookup("Field1", "MyTable")          [COLOR="Green"]'displays 1 in the immediate pane[/COLOR]