BCB 中在线程中使用CreateInstance()的问题

[rediron]

本人访问数据库使用了#include <adodb_tlb.h>的COM方式
在线程中完成数据库的操作，线程使用BCB的TThread类来建立。但是在TThread的excute()函数中建立数据库访问的变量就错，代码如下：
_ConnectionPtr pconn1;
_RecordsetPtr prs1;
FieldPtr pfield1;

HRESULT hr1;
hr1=pconn1.CreateInstance(CLSID_Connection);
...
其中hr1总是返回错误，不为0。但是将同样的代码放到TThread类的构造函数中就是正确的。不知是什么原因，请高人指点？谢谢