レコード追加時のエラー処理・トランザクションの使用方法：ExcelでADO

Option Explicit

Private Sub CommandButton1_Click()
    Dim db As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer
    
On Error GoTo ErrRtn
    '売上管理のACCDBファイルに接続します
    Set db = New ADODB.Connection
    db.Provider = "Microsoft.Ace.OLEDB.12.0"
    db.Open "C:\MyHP\excel2007\Tips\売上管理.accdb"

    'レコードセットを開きます
    Set rs = New ADODB.Recordset
    '売上テーブルを開きます
    rs.Open "T_売上", db, adOpenDynamic, adLockOptimistic
    
    'トランザクションの開始
    db.BeginTrans
    
    For i = 1 To 10
        '追加開始
        rs.AddNew
        rs("日付") = "2010/06/28"
        rs("会社名") = "株式会社早急運送"
        rs("商品名") = "スチール棚"
        rs("数量") = 500
        rs("金額") = 4950000
        '無理やりエラーを発生させる
        rs("備考") = "No." & 2 / (i - 6)
        '保存
        rs.Update
    Next
    
    'トランザクションの保存
    db.CommitTrans
    
    '閉じる
    rs.Close
    db.Close
    '終了処理
    Set rs = Nothing
    Set db = Nothing
    Exit Sub

ErrRtn:
    MsgBox "エラー： " & Err.Description
    'BeginTransの時点まで戻り、変更をキャンセルする
    db.RollbackTrans
    db.Close
    Set db = Nothing
End Sub