List 1-3　RollBackTransメソッドによる明示的なロールバック処理

  1： Dim objCon As ADODB.Connection
  2： Set objCon = CreateObject("ADODB.Connection")
  3： 'トランザクションを開始する。
  4： objCon.BeginTrans
  5： 'ここに一連の処理を記述する。
  6： 'この処理が実行されているあいだ，ほかのデータベース処理が割り込むことはない。
  7： If エラーが発生 Then
  8：     'RollBackTransメソッドを呼び出してトランザクションを中止させる。
  9：     objCon.RollBackTrans
 10： Else
 11：     'トランザクションを正常に終了する。
 12：     objCon.CommitTrans
 13： End If