我做的组件使用了ADO访问数据库，为什么不能在asp脚本环境中调用？出错提示如下

问题： 我做的组件使用了ADO访问数据库，为什么不能在asp脚本环境中调用？出错提示如下
描述:

Microsoft VBScript 编译器错误 错误 '800a03f6' 
缺少 'End' 
/iisHelp/common/500-100.asp，行242 
Active Server Pages 错误 'ASP 0115' 
意外错误 
/index.asp 
外部对象中发生一个可捕捉的错误(E06D7363)。脚本无法继续执行。 
当我去掉访问数据库的代码的时候，又能够正常调用了，这是怎么回事呢？
附上该函数的实现
    _bstr_t Connect("DSN=DataServer;uid=sa;pwd=");
    _bstr_t Source("Select * from login where sUserName='");
    hr = Rs1.CreateInstance(__uuidof(Recordset));
    
    _bstr_t bstrTemp("Ailong");
    Source+=bstrTemp;
    Source+=L"'";
    Rs1->Open(Source,Connect,adOpenForwardOnly,adLockReadOnly,-1);
    if(Rs1->adoEOF)
        *pnReturnCode=LOGIN_FAIL;
    else
        *pnReturnCode=LOGIN_SUCCESS;
    Rs1->Close();
    Rs1=NULL;