Для того, чтобы управлять контекстом выполнения COM объектов в MTS из VB нужно установить ссылку на Mtxas.dll, который предоставит нам необходимые классы и методы. Но данный DLL будет у Вас только в том случае, если Вы установили с MTS компоненты разработчика (см. "Шаг 18 - Откуда взять MTS (Microsoft Transaction Sever)").

С этого момента мы можем управлять обработкой транзакций в MTS. Но для начала нам нужно получить ссылку на контекст. Получаем.

Dim context As ObjectContext
Set context = GetObjectContext()

С этого момента нам будут доступны ряд функций.