→→→トランザクションを開始／終了

トランザクションを使用することによってデータベース更新中にエラーが
発生した場合、データ整合性を保持することができる

BeginTransactionメソッド

トランザクションを終了するには、Commitメソッドを使う
Commitメソッドはトランザクション処理中のデータベース操作を確定して
トランザクションを終了する

Dim sTrans As OleDbTransaction
Dim ocn As OleDbConnection = New OleDbConnection
ocn.ConnectionString = "Provider=Microsoft.Jet.OlEDB.4.0;
                                  DataSource=D:\**mdb;Persist Security Info=False"
ocn.open()

Try
    sTrans = ocn.BeginTransaction()
    MessageBox.show("トランザクションを開始しました")
    sTrans.Commit()
Catch ex As Exception
    MessageBox.show("トランザクションを開始できませんでした")
End Try
ocn.Close()