Private Sub foo()
On Error Goto Abort
DBEngine.BeginTrans
CurrentDb.Execute "MyFirstQueryName", dbFailOnError
CurrentDb.Execute "MySecondQueryName", dbFailOnError
CurrentDb.Execute "MyThirdQueryName", dbFailOnError
DBEngine.CommitTrans
Exit Sub
Abort:
DBEngine.Rollback
End Sub