Сделка VB.NET и SQLDataReader

Пожалуйста, взгляните на код ниже:

Public Function Orphand() 
        Dim objCon As SqlConnection
        Dim objCommand As SqlCommand
        Dim objCommand2 As SqlCommand
        Dim objCommand3 As SqlCommand
        Dim objDR As SqlDataReader
        Dim transaction As SqlTransaction
        Try
            objCon = New SqlConnection(_ConString)
            objCommand = New SqlCommand
            objCommand2 = New SqlCommand
            objCommand3 = New SqlCommand
            objCommand.Connection = objCon
            objCommand2.Connection = objCon
            objCommand3.Connection = objCon
            objCon.Open()
            transaction = objCon.BeginTransaction
            objCommand.Transaction = transaction
            objCommand2.Transaction = transaction
            objCommand3.Transaction = transaction
            Using objCon
                objCommand.CommandText = "SELECT TOP 3 * FROM dbReviews"
                objDR = objCommand.ExecuteReader
                Do While objDR.Read
                    objCommand2.CommandText = "INSERT INTO dbReviewChangesVALUES (1,1,'1',1,'2012-01-09')"
                    objCommand2.ExecuteNonQuery()
                    objCommand3.CommandText = "INSERT INTO dbReviewChangesVALUES (1,1,'1',1,'2012-01-09')"
                    objCommand3.ExecuteNonQuery()
                Loop
                transaction.Commit()
                objDR.Close()
            End Using
        Catch ex As Exception

        End Try
    End Function
End Class

Есть ли способ передать сделку на каждой петле вместо того, чтобы ждать, пока все отчеты не закрепляются петлей, или эта бедная практика?

Я провел некоторое время Googling это. Я не думал, что должен буду отправить вопрос, но я не нашел ответ.