8.х ОБМЕН Как закрыть Com-соединение

Здравствуйте!
У меня организован обмен между двумя базами 1С 8.1 через Com-соединение.
Написана обработка, где задается интервал дат для загрузки и после нажатия на кнопку
"Загрузить" происходит Com-соединение. Все работает нормально, первый раз всегда соединяет,
но если нажимаешь 2-ой раз на кнопку "Загрузить", то выдается ошибка соединения, в третий раз
- все нормально. Т е соединяет через раз. Я думаю, что просто не закрывается первое Com-соединение, а на соединения есть ограничение. Вопрос - как закрыть программно Com-соединение.
Помогите,если можете.

Код следующий:

Функция СоединенияСБазой(СтрокаПодключения)

ОбъектПодключения ="V81.COMConnector" ;
ТекCOMПодключение = Новый COMОбъект(ОбъектПодключения);
ТекCOMОбъект = ТекCOMПодключение.Connect(СтрокаПодключения);
//СтрокаПодключения - это путь к базе

#Если Клиент Тогда
Состояние("Соединение установлено");
#КонецЕсли

Исключение

СтрокаСообщенияОбОшибке = "При попытке соедиения с COM-сервером произошла следующая ошибка:" + Символы.ПС
+ ОписаниеОшибки();
#Если Клиент Тогда
Сообщить(СтрокаСообщенияОбОшибке, СтатусСообщения.Важное);
Состояние("Соединение установить не удалось");
Состояние();
#КонецЕсли

Возврат Неопределено;

КонецПопытки;
КонецПроцедуры

Ошибка :

Ошибка при вызове метода контекста (Connect): Произошла исключительная ситуация (V81.COMConnector.1): {МодульВнешнегоСоединения(12)}: Нарушение количества допустимых сеансов!
Допустимых сеансов стоит 1 и исправить я не могу , поэтому и спрашиваю, как закрыть сеанс соединения программно?

К сожалению, все тоже самое.
Вот процедура нажатия на кнопку "Подкачать"

Код:

Процедура ВыбратьНажатие(Элемент)
ДатаНачала=Строка(ЭлементыФормы.ДатаНачала.Значение);
ДатаОкончания=Строка(ЭлементыФормы.ДатаОкончания.Значение);

ТбТовары=Новый ТаблицаЗначений;
ТбИерархияТоваров=Новый ТаблицаЗначений;
ТбПлатежи = Новый ТаблицаЗначений;
Результат=неопределено;
ТаблицаЗаказов=   ПодкачкаДанныхСТаможеннойБазы.ПолучитьТаблицуГТД(ДНачала,ДОкончания,ФлагиГТД,
ТбТовары,ТбИерархияТоваров,ТбПлатежи,Результат);
ТаблицаНомеровГТД=ПодкачкаДанныхСТаможеннойБазы.ПолучитьТаблицуНомеровГТД(Результат);
Результат=0;

Соединение само вызывается в ПолучитьТаблицуГТД и возвращается , как Результат.
Если не закрывать форму и нажать опять "Подкачать", вываливается ошибка соединения.