请教一个问题
function OpenSQL(Str :String):TDataSet;stdcall;
var
ADOset :TADOQUery;
begin
ADOset :=TADOQuery.Create(Nil);
ADOset.Connection :=DM.ADOConn;
with ADOset do
begin
Close;
SQL.Clear;
SQL.Add(Str);
Open;
end;
ADOset.Active :=True;
Result :=ADOset;
end;

这个是在DLL中写的一个函数，我Exe文件中调试是通过的，但是编译成了DLL后就是报错，实在是不知道错那里了？各位帮我看看吧。。。谢谢了。。


[解决办法]
我想你那个程序出错应该是DM这个单元，你的DM没有初始化！
给你个正解的DLL单元：先自己好好看看吧！
library DBTest;

uses
SysUtils,
Classes,
DB,
ADODB,
uDB in 'uDB.pas ' {DM: TDataModule};

{$R *.res}

function OpenSQL(Str :String):TDataSet;stdcall;
var
ADOset :TADOQuery;
DM: TDM;
begin
DM := TDM.Create(nil);
ADOset :=TADOQuery.Create(Nil);
ADOset.Connection := DM.ADOCon;
with ADOset do
begin
Close;
SQL.Clear;
SQL.Add(Str);
Open;
end;
Result :=ADOset;
end;

exports
OpenSQL;
begin
end.