List 1-2　ADOを用いたトランザクション処理の実装

  1： Dim objCon As ADODB.Connection
  2： Set objCon = CreateObject("ADODB.Connection")
  3： 'トランザクションを開始する。
  4： objCon.BeginTrans
  5： 'ここに一連の処理を記述する。
  6： 'この処理が実行されているあいだ，ほかのデータベース処理が割り込むことはない。
  7： 'トランザクションを終了する。
  8： objCon.CommitTrans