求助VC ADO MS-SQL 运行时出现Runtime error

Question

你好 :)
我用的vc6 和ms sql连接,以下是孙鑫的例子，我照着打的，编译链接都没错，但是运行时出现Runtime error。 
我已加了 #import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename ("EOF","rsEOF")以下是具体程序： HCURSOR CMy20Dlg::OnQueryDragIcon()
{
    return (HCURSOR) m_hIcon;
}void CMy20Dlg::OnBtnQuery() 
{
    // TODO: Add your control notification handler code here
    CoInitialize(NULL);
    _ConnectionPtr pConn(__uuidof(Connection));
    _RecordsetPtr pRst(__uuidof(Recordset));
    
//    pConn->ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test";    pConn->ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs";
    pConn->Open("","","",adConnectUnspecified);    pRst=pConn->Execute("select * from authors", NULL, adCmdText);    while(!pRst->rsEOF)
    {
        ((CListBox*)GetDlgItem(IDC_LIST1))->AddString(
            (_bstr_t)pRst->GetCollect("au_lname"));
        pRst->MoveNext();
    }
    
    pRst->Close();
    pConn->Close();
    pRst.Release();
    pConn.Release();
    CoUninitialize();
}请问这个问题要怎么解决啊：）

Answer 1

在User ID=sa;前要加上一句 server=SQLSERVERname;
这里,SQLSERVERname指具体的服务器,这个服务器你要能访问到才能连上.

Answer 2

Thanks a lot :)
But your answers are not correct.
I solved it now.
This line should be changed:
pConn->Open("","sa","password",adConnectUnspecified);
I forgot to add the user-ID and password.