VB.NET 中操作数据库应用事务，SqlTransaction

Private   Sub Page_Load() Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Dim SqlHelper As New SqlHelper
        ExecuteSqlTransaction(SqlHelper.sConnectString)
    End Sub

     Private   Sub ExecuteSqlTransaction() Sub ExecuteSqlTransaction(ByVal connectionString As String)
        Dim connection As New Data.SqlClient.SqlConnection(connectionString)
        connection.Open()

        Dim command As Data.SqlClient.SqlCommand = connection.CreateCommand()
        Dim transaction As Data.SqlClient.SqlTransaction

        ' Start a local transaction
        transaction = connection.BeginTransaction("SampleTransaction")

        ' Must assign both transaction object and connection
        ' to Command object for a pending local transaction.
        command.Connection = connection
        command.Transaction = transaction

        Try
            '事务处理，第一次向数据库插入一条数据，接着第二次向数据库中插入相同一条数据，由于数据库关键字段有限制不能重复，第一次动用无效。
            '事务处理是由以一个单一的逻辑单位