VB & MS SQL. Проблема перевода в SINGLE USER через ADO

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

Приветствую всех.
Как уже понятно многим стало, не получается перевести из программы на VB, которая работает с базой на MS SQL в SINGLE USER
Подключаюсь к базе через ADO используя Provider=SQLOLEDB
Наслышан про проблемы создания скрытых подключений в ADO, но как это исключить?
Хотя бы перед переводом в SINGLE USER и обратно?
Может быть перед выполнением инструкции "почистить" дополнительные подключения?
Или как?

Решение задачи: «VB & MS SQL. Проблема перевода в SINGLE USER через ADO»

textual
                            Листинг программы 
                        
                            <font color="blue">Set</font> obj.ActiveConnection = cn