ADO连接SQL Server2005

void CADODemoView::OnInitialUpdate()
{
 CListView::OnInitialUpdate();

 // TODO: 

 HRESULT hr;
 CString connStr=_T("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;\
     Initial Catalog=studydb;Data Source=(local)");
 try
 {
  hr = m_pConnection.CreateInstance("ADODB.Connection");
  if(SUCCEEDED(hr))
  {
   hr = m_pConnection->Open((_bstr_t)connStr,"sa","",0);
  }
 }
 catch (_com_error e)
 {
  CString errormessage;
  errormessage.Format(_T("连接数据库失败！\r\n错误信息：%s"),e.ErrorMessage());
  AfxMessageBox(errormessage);
  return ;
 }
 
 AfxMessageBox(_T("Connection successful!"));
}