トランザクション

Dim ws As Workspace: Set ws = DBEngine.Workspaces(0)

On Error GoTo ErrorHandler
ws.BeginTrans
処理
ws.CommitTrans
ws.Close

ErrorHandler:
ws.Rollback
ws.Close