Adodb.connection and multithreading - VB

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

Добрый день!!!! Вопрос у меня скорее всего не самый сложный но разобраться я не могу сам. Да и опят небольшой. а задача значит такая - НУжно прогу написать, которая обращается на сервак с процедурой и желательно это сделать с потоком. Отдельно обращение к процедуре на серваке все работает. А если я вставляю эту функцию в поток, то выделяется строка собъявдлением объекта ( Set cn=CreateObject ("Adodb.Connection") И надпись Automation Error. ПОмогите плиз!!!

Решение задачи: «Adodb.connection and multithreading»

textual
                            Листинг программы 
                        
                            <font color="blue">Declare</font> <font color="blue">Function</font> CoInitialize Lib <font color="teal">"ole32.dll"</font> (<font color="blue">ByVal</font> _
	pvReserved <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Declare</font> <font color="blue">Sub</font> CoUninitialize Lib <font color="teal">"ole32.dll"</font> ()