How to apply transaction in typed dataset

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Namespace DSBatchTableAdapters
Partial Public Class BatchMasterTableAdapter
Dim _Transaction As SqlTransaction
Public Property Transaction() As SqlTransaction
Get
Return _Transaction
End Get
Set(ByVal value As SqlTransaction)
_Transaction = value
_connection = _Transaction.Connection
If _adapter Is Nothing Then
Me.InitAdapter()
End If
For Each command As SqlCommand In Me.CommandCollection
command.Transaction = _Transaction
Next
Me.Adapter.InsertCommand.Transaction = _Transaction
Me.Adapter.UpdateCommand.Transaction = _Transaction
Me.Adapter.DeleteCommand.Transaction = _Transaction
End Set
End Property
Public Sub SetCommandTimeOut(ByVal PassTime As Integer)
For Each Command As SqlCommand In Me.CommandCollection
Command.CommandTimeout = PassTime
Next
End Sub
End Class
Partial Public Class BatchChildTableAdapter
Dim _Transaction As SqlTransaction
Public Property Transaction() As SqlTransaction
Get
Return _Transaction
End Get
Set(ByVal value As SqlTransaction)
_Transaction = value
_connection = _Transaction.Connection
If _adapter Is Nothing Then
Me.InitAdapter()
End If
For Each command As SqlCommand In Me.CommandCollection
command.Transaction = _Transaction
Next
Me.Adapter.InsertCommand.Transaction = _Transaction
Me.Adapter.UpdateCommand.Transaction = _Transaction
Me.Adapter.DeleteCommand.Transaction = _Transaction
End Set
End Property
Public Sub SetCommandTimeOut(ByVal PassTime As Integer)
For Each Command As SqlCommand In Me.CommandCollection
Command.CommandTimeout = PassTime
Next
End Sub
End Class
End Namespace