[كود] كيف اتراجع عن عملية اضافة الى قاعدة البيانات عند حدوث خطأ ما

كود :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim conStr As String = "Data Source=.\MYSSQLSERVER;Initial Catalog=TestMYS;Trusted_Connection=Yes;"

        Call Me.RunSqlTransaction(conStr)

    End Sub





    Public Sub RunSqlTransaction(ByVal myConnString As String)

        Dim myConnection As New SqlConnection(myConnString)

        myConnection.Open()



        Dim myCommand As SqlCommand = myConnection.CreateCommand()

        Dim myTrans As SqlTransaction



        ' Start a local transaction

        myTrans = myConnection.BeginTransaction(IsolationLevel.ReadCommitted, "SampleTransaction") ' بدأ عملية تسجيل الكويري المطبقه على قاعدة البيانات

        ' Must assign both transaction object and connection

        ' to Command object for a pending local transaction

        myCommand.Connection = myConnection

        myCommand.Transaction = myTrans

        Try

            myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (100, 'Description'); SELECT SCOPE_IDENTITY() ;"

            Dim RecordId As Integer = myCommand.ExecuteScalar()

            myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (101, 'Description')"

            myCommand.ExecuteNonQuery()

            myTrans.Commit() ' عندما يتم  ارسال هذا الامر يعني بانه اعتمد التغيرات على قاعدة البيانات  و لا تستطيع التراجع عن الامر

            Console.WriteLine("Both records are written to database.")

        Catch e As Exception

            Try

                myTrans.Rollback("SampleTransaction") ' مثلا لو حصل في الاستعلام الثانيه  خطأ مثل اسم العمود خطأ أو أو ...الخ فانه يأمر بالتراجع عن الكويري الاولى بالرغم انه تم تنفيذها بنجاح  

            Catch ex As SqlException

                If Not myTrans.Connection Is Nothing Then

                    Console.WriteLine("An exception of type " & ex.GetType().ToString() & _

                                      " was encountered while attempting to roll back the transaction.")

                End If

            End Try



            Console.WriteLine("An exception of type " & e.GetType().ToString() & _

                            "was encountered while inserting the data.")

            Console.WriteLine("Neither record was written to database.")

        Finally

            myConnection.Close()

        End Try

    End Sub 'RunSqlTransaction