VB2005でトランザクションの書き方

Try
    MyCn.Open()
    Dim tran As SqlClient.SqlTransaction = MyCn.BeginTransaction()
    Try
        '***** 追加・更新・削除ｺﾏﾝﾄﾞ *****
        MyDA.InsertCommand = CreateInsCmd(ここでtran渡せば？)
        MyDA.UpdateCommand = CreateUpdCmd()
        MyDA.DeleteCommand = CreateDelCmd()
        MyDA.InsertCommand.Transaction = tran
        MyDA.UpdateCommand.Transaction = tran
        MyDA.DeleteCommand.Transaction = tran
        '***** 更新実行 ******************
        MyDA.Update(tbl)
        tran.Commit()
        MsgBox("更新終了")

    Catch ex As Exception ' ex 使わないなら catch のみで
        tran.Rollback()
        MsgBox("更新異常終了")
        Throw
    End Try

Finally
    MyCn.Close()
End Try