dll问题：下面的dll编译没有问题，为何运行时会发生异常？同样的函数在exe文件中运行正常。

library ado;
uses
  SysUtils, Classes,DB, ADODB;{$R *.res}
function dbconnet(server,databasename,logid,logpass:string;timeout:integer):Boolean;stdcall;export;
var  con:string;
     ADOConnection: TADOConnection;
 begin
  try
  ADOConnection := TADOConnection.Create(nil);
  ADOConnection.KeepConnection := false;
  ADOConnection.LoginPrompt := false;
  con:='Provider=SQLOLEDB.1;Password=' + chr(39) +logpass+ chr(39) +
   ';Persist Security Info=True;User ID=' + chr(39) +logid+ chr(39) +
    ';Initial Catalog=' + chr(39) + databasename+ chr(39) +
    ';Data Source=' + chr(39) + server + chr(39);
  ADOConnection.ConnectionString := con;
  ADOConnection.ConnectionTimeout:=timeout;
  ADOConnection.Connected:=true;}
  result:=true
  except
  // on Edatabaseerror do
   result:=false;
  end;
  finally
 ADOConnection.Connected:=false;
  ADOConnection.Free;
 end;
 end ;
exports  dbconnet;
beginend.