Cannot create new transaction because capacity was exceeded - VB

Формулировка задачи:

Доброе время суток!
Возникла проблема, вообще не могу найти причину.
ОС: Windows XP SP3
База: SQL Server 2008 R2 Developer Edition
Есть клиентская прога написанная на VB6, которая подключается к SQL Server, строка подключения
Provider=SQLOLEDB;Data Source=SERVER;User ID=uid;Password=pwd;Initial Catalog=DB
При

ADOConnection.BeginTrans

сразу вылетает ошибка

не могу найти причину, облазил инет, подходящее ничего не вижу
Кстати, заметил одну странность, в SQL Server, смотрю через Activity Monitor количество подключений к рабочей базе, при выполнении определенных SQL-инструкций через один и тот же ADO Connection появляется дополнительные соединения, отдельные от основного
может быть из-за них?
Подсобите камрады
Заранее благодарю за помощь

Решение задачи: «Cannot create new transaction because capacity was exceeded»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> cn <font color="blue">as</font> ADODB.Connection

...
<font color="blue">Set</font> rs.ActiveConnection = cn
rs.<font color="blue">Open</font> SQL,,...
...
                        