我的多线程程序在新建的线程中应用ado以后,进程无法退出

我参考了Daniel Appleman的一篇名为
<< Creating Multi-Threaded VB5/SP2 Apps >>的文章创建我的多线程程序。
把程序的类型设成Active Exe，并在工程属性里把线程模块里设成“每个对象对应一个线程”，
线程相关的代码封装在一个类中，如cls_myThread,
以后用CreateObject函数创建cls_myThread的对象，此时自动生成一个新的线程。当我没有在新线程里使用ado做数据库相关操作时，只要把线程对象设成Nothing时，
对应的线程就能结束，但是当我使用过ado时，该线程便不能退出，
最后导致整个进程不能结束。 
（我没有在线程间共享ado连接,而是在新线程里重开一个连接，不知道怎么共享，
 更不知共享后会发生什么问题）请问哪位高手能帮我解决这个进程退出的问题，谢谢了！！