vc 利用ADO 访问sql 数据库

/* #import "C:/Program Files/Common Files/System/ado/msado15.dll" no_namespace rename ("EOF","rsEOF") */ void CADOTestDlg::OnBTNQuery() {   CoInitialize(NULL);   _ConnectionPtr pConn(_uuidof(Connection));   _RecordsetPtr pRst(_uuidof(Recordset));

  pConn->ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;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(); }