0x800A0E7D的错误如何解决啊？谢谢了

我的程序如下：
void CAccountDBSSDlg::OnBtnIncomeAdd() 
{
 // TODO: Add your control notification handler code here if(!UpdateData())
  return;
 CString txtType = m_dcIncome.GetText();
 if(txtType.IsEmpty()){
   AfxMessageBox("类型不能为空");
   return;
 }
 //获取收入时间；
   CString strDate = m_oleIncome.Format("%Y-%m-%d");
   
 try
 { 
    
   // _RecordsetPtr m_pRecordset;
    m_pConnection.CreateInstance(_uuidof(Connection)); //初始化Connection指针
    m_pRecordset.CreateInstance("ADODB.Recordset");//初始化Recordset指针
     m_pRecordset->Open("Select seq_income_id.NEXTVAL from dual",(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText);
     int id = 1;
  if(!m_pRecordset->adoEOF)
  {
   _variant_t TheValue;
   //从系列中获取新的收入ID值；
   TheValue = m_pRecordset->Fields->GetItem((short)0)->Value;
   if(TheValue.vt != VT_NULL)
    id = TheValue.iVal;
  }
    
  m_pRecordset->Close();  _variant_t RecordsAffected;
  //插入新的收入信息记录；
  CString sql;
  sql.Format("insert into income_info_tab(income_id,""income_date,income_type,money,""description) values(""%d,""to_date('%s','yyyy-mm-dd'),""'%s',%.2f,'%s')",id,strDate,txtType,m_dbIncomeMoney,m_strIncome);
   TRACE(sql);
  m_pConnection->Execute(_bstr_t(sql),&RecordsAffected,adCmdText);
  //刷新ADO数据控件的数据，从而更新数据显示
  m_adoIncomeDataCtrl.Refresh ();
  InitControl();
 }
 catch(_com_error e)//异常处理；
 {
   AfxMessageBox(e.ErrorMessage());
    AfxMessageBox("测试");
 }
 
编译是能通过的，但是运行出来后操作就出现有“0x800A0E7D”这些字符的提示框，谢谢高手指教