COPY

Private Sub RunSQL()
    Dim strSQL              As String
    Dim DB                  As DAO.Database
    Dim WSP                 As Workspace
    On Error GoTo Err_order

    Set WSP = DBEngine.Workspaces(0)
    Set DB = CurrentDb

    'トランザクション処理開始
    WSP.BeginTrans

    DB.Execute strSQL
   
    If DB.RecordsAffected = 0 Then
        'ロールバック処理
        WSP.Rollback
    Else
        'トランザクション処理終了
        WSP.CommitTrans
    End If

Exit_order:

    'WSP.Close は不要
    Set DB = Nothing
    Set WSP = Nothing
    Exit Sub

Err_order:

    MsgBox Err.Description
    'トランザクション処理終了（処理をなかったことにする）
    WSP.Rollback
    Resume Exit_order

End Sub