OLEDBでのトランザクション処理の関連付けについて

Public Function Execute(ByVal m_Con As OleDbConnection, ByVal strSQL As String,_ 
<<<Optional ByVal m_Tran As OleDbTransaction = Nothing>>>←ここを省略したい) As Boolean

         Dim m_Cmd As OleDbCommand
         Dim blnFlg As Boolean = False

         Try

                  m_Cmd = New OleDbCommand(strSQL, m_Con)
                  m_Cmd.CommandType = CommandType.Text

                  <<<m_Cmd.Transaction = m_Tran>>>←ここを省略したい

                  m_Cmd.ExecuteNonQuery()

                  blnFlg = True

         Catch ex As Exception
                  Throw (ex)
         Finally
                  Execute = blnFlg
         End Try
End Function

    Dim wrapper As OleDbWrapper

    Try
        wrapper = New OleDbWrapper()
        wrapper.Open("[接続文字列]")

        ' トランザクションを開始する (これ 1 回のみ)
        wrapper.BeginTransaction()

        wrapper.Execute("[好きな SQL コマンド 1]")  '何かの更新 1
        wrapper.Execute("[好きな SQL コマンド 2]")  '何かの更新 2
        wrapper.Execute("[好きな SQL コマンド 3]")  '何かの更新 3
        wrapper.Execute("[好きな SQL コマンド 4]")  '何かの更新 4

        ' コミット
        wrapper.Commit()
    Catch
        ' 例外発生時はロールバック
        wrapper.Rollback()
        Throw
    Finally
        ' コネクションの破棄など後始末
        If Not wrapper Is Nothing Then
            wrapper.Dispose()
        End If
    End Try

    Dim wrapper  As OleDbWrapper
    Dim m_Tran as OleDbTransaction
    Dim m_Con as OleDbConnection

    Try
        wrapper = New OleDbWrapper()

        wrapper.Open("[接続文字列]")

        ' トランザクションを開始する (これ 1 回のみ)
        m_Tran = wrapper.BeginTransaction()

        UpdateData(m_Con,"[好きな SQL コマンド]",m_Tran)　
        ↑※m_Conだけ渡して、ここのm_Tranを省略したいです。


        ' コミット
        wrapper.CommitTrans(m_Tran)

    Catch
        ' 例外発生時はロールバック
        wrapper.RollbackTrans(m_Tran)
        Throw
    Finally
        ' コネクションの破棄など後始末
        If Not wrapper Is Nothing Then
            wrapper.Dispose()
        End If
    End Try


↓UpdateData関数簡易詳細
////////////////////////////////////////////////////////////////////////////////

Private Sub UpdateData(Byval m_Con as OleDbConnection,Byval strSQL as String,_
Byval m_Tran as OleDbTransaction)

        Dim wrapper2 As OleDbWrapper

        wrapper2 = New OleDbWrapper()

        //////////////////
        何らかの処理(省略)
        //////////////////

        'wrapper2内の管理ではコネクションは開いてなく、トランザクションを開始していないです

        wrapper2.Execute(m_Con,"[好きな SQL コマンド]",m_Tran)  
        ↑※m_Conだけ渡して、ここのm_Tranを省略したいです。


        //////////////////
        何らかの処理(省略)
        //////////////////

End Sub
////////////////////////////////////////////////////////////////////////////////