On Error GoTo Fail
Set db = CurrentDb
db.BeginTrans
On Error GoTo TransFail
db.Execute "...", dbFailOnError
db.Execute "...", dbFailOnError
db.CommitTrans
On Error GoTo Fail
Set db = Nothing
ExitHere:
Exit Sub
TransFail:
db.Rollback
Fail:
Msgbox "derp"
Resume ExitHere