WebServices 中如何用ADOConnection动态连接SQL服务器? 代码是BCB写的，应该是差不多的。

问题描述如下：
1、我有WebServices类型是ISAP
2、我在WebServices的数据模块中加入一个ADOConnection控件，并在构造函数中连接这个ADOConnection到SQL服务器，服务器信息保存在一个ini文件中
3、我把这个动态库，和保存服务器信息的ini文件拷到虚目录中
4、结果前端连接时出现错误，如果在设计时直接用ADOConnection连接数据库则不会出错代码如下：
数据模块的构造函数：
__fastcall TWebDataModule::TWebDataModule(TComponent* Owner) : TSoapDataModule(Owner)
{
    int ConnectCount=0;
    AnsiString IStrCount="";
    try
    {   
        FADOConnection=new TADOConnection(Owner);
        FADOConnection->Close();
        FADOConnection->ConnectionString=GetConnectionStr();
        FADOConnection->LoginPrompt=false;
        FADOConnection->Open();        ADOQuery1->Connection=FADOConnection;
          
    }catch(...)
    {
    }    
}//从ini文件中读SQL配置的函数
AnsiString  TWebDataModule::GetConnectionStr()
{
    AnsiString r="", IFileName;                    
    IFileName=ConfigFileName;
    TIniFile *pIniFile;
    pIniFile = new TIniFile("SQLConfig.ini");
    if (pIniFile!=NULL)
    {
        r="Provider=SQLOLEDB.1;Password=";
        r+=pIniFile->ReadString("DataBase","PassWord","")+";";
        r+="Persist Security Info=false;User ID=";
        r+=pIniFile->ReadString("DataBase","UseName","")+";";
        r+="Initial Catalog=";
        r+=pIniFile->ReadString("DataBase","DatabaseName","")+";";
        r+="Data Source="+pIniFile->ReadString("DataBase","DataSource","");
    }
    delete pIniFile;
    return r;
}