dll 里封装 ado 得问题（急）

Question

以下是dll 代码
uses
  SysUtils,
  Classes,
  ADODB;{$R *.res}function execute_sql(sql,conn:pchar):TAdoQuery;
var
adoquery:TAdoQuery;
begin
adoquery:=TAdoQuery.Create(nil);
adoquery.ConnectionString:=conn;
adoquery.SQL.SetText(sql);
adoquery.ExecSQL;
adoquery.Active:=true;
execute_sql:=adoquery;
end;
exports
execute_sql;调用代码
function execute_sql(sql,conn:pchar):TAdoQuery;external 'adodll.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
rs:=execute_sql('select * from dict',conn);
self.DataSource1.DataSet:=rs;
end;
调用得时候报 “invalid pointer operation” 
请大家帮忙 
谢谢！！1

Answer 1

DLL初始化时调用CoInitialize(nil)
退出时CoInitialize

Answer 2

我前一段时间刚刚问了相似的问题，你到我的帖子去看看吧，希望能对你有帮助
http://community.csdn.net/Expert/TopicView3.asp?id=5310260