Dim ws As Workspace: Set ws = DBEngine.Workspaces(0)On Error GoTo ErrorHandlerws.BeginTrans処理ws.CommitTransws.CloseErrorHandler:ws.Rollbackws.Close