你可以生成一个数据模块，静态放置数据集和ADO CONNECTION组件，然后使该数据模块不在程序开始时生成，而可以在线程中动态的生成，这种方法也可以，有兴趣的朋友可以试一下二者之间的执行效率。

本人最近正在进行呼叫中心的座席端和服务器软件开发，座席端登录部分是进行提取主机信息，然后使用SOCKET提交给远程服务器，服务器再在后台数据库中进行查找信息，进行对比，看是否允许座席端主机登录，因为我的电脑中无法安装SQLSERVER。

所以 ，ADO CONNECTION后台数据库暂时使用access小型数据库进行代替，到后期可以改为SQLSERVER数据库，，我在后台数据库中使用了两个表，使用ADO CONNECTION字段将其相关联，如果在***个表中查找到信息以后马上会进入第二个表中进行查找，如果***个表中的信息符合，就返回个客户第二个表中的信息，因为座席端主机有200多台，为了防止几台主机同时进行验证信息，引起冲突，我在服务器端建立多线程。#t#

利用线程进行后台的查询，以及查找结果的回传，ADO CONNECTION编写成功后进行测试，发现当一个主机连接后可以测试成功，但是，当第二个或者以后的线程产生时，数据集在***个表中可以查到正确的信息，但是进入第二个表中时，会发现按照正确的查找条件进行查找时，查到的信息都为NIL，而且经过跟踪，发现，其实ADO CONNECTION已经找到了正确的信息，而且已经发送成功了，但是却无法接收到，当时我在论坛中发表了一个帖子寻求帮助。

有些朋友说可能ACCESS数据库不提供多线程访问，但是我听说很多的论坛中好像都使用了ACCESS进行后台线程的查找的。翻看MSDN中关于COM的说明：发现我的线程中竟然缺少最重要的两个函数过程。

CoInitialize( nil )；凡是访问com对象都应该使用。线程的关闭时应该使用CoUnInitialize;否则ADO CONNECTION肯定出错，我相信肯定有不少的朋友经历过这种问题的：

unit Unitquerythread;  
interface  
uses  
windows,SysUtils,Classes, Dialogs,ADODB,db, NMMSG, ActiveX{必须要有};  
type  
QueryThread = class(TThread)  
private  
FComputerInfor,FIPaddressinfo: string;//传递的信息  
FAdoQuery,FAdoQUserInfor:TadoQuery;//动态生成的表一,表2  
Fadoconnection:Tadoconnection;//动态生成的连接  
Fnmmsg,FNMretureMSG:TNMMSG;//用来发送返回信息的组件  
filestream:tfilestream;  
procedure ExtractInfor(TransInfo:string{自定义的从该提交信息中分离信息的过程});  
procedure ShellexeQuery;  
Destructor Destroy;