显示详细的ADO出错信息

我们在用ado连接数据时，经常会出现一些异常，而用_com_error::ErrorMessage()有时候给出的错误信息又太不直观。因此，我给出下面的代码，以期得到更加全面直观的错误信息  
 
long  lErrCount=  pConn->GetErrors()->GetCount();  //pConn是你的连接变量，_ConnectionPtr型  
_bstr_t  add;  
CString  strErrMsg,strTmp;  
 
for  (short  i=0;i<lErrCount;i++)  
{  
           add  =  pConn->GetErrors()->GetItem(_variant_t((short)i))->GetDescription();  
           strTmp=  (char  *)add;  
           strErrMsg  +=  strTmp;  
}  
             
AfxMessageBox(strErrMsg);