C++中连接ACCESS的问题

Question

void CDEMOView::TestEnd()
{
// TODO: Add your command handler code here
m_bTestBegin=FALSE;
m_bTestRead=FALSE;
KillTimer(2);
CString strTestScore;
strTestScore.Format("此次测试成绩为：%d个字符/分钟",inputRight*60/m_lTestTime);
strNoteMessage="就绪";
if(MessageBox(strTestScore,"打字测试系统",MB_YESNO)==IDNO)
{
Invalidate();
return;
}
Invalidate();
_variant_t vUserId,vTestDate,vSpeed,vRight,vWrong;
_variant_t vPercent,vTestTime,vTestFile,vEndTestTime;
_RecordsetPtr m_pRecordset;
CString m_strSql;
m_strSql="SELECT*FROM scorer";
m_pRecordset.CreateInstance("ADODB.Recordset");

try
{
m_pRecordset->Open((_variant_t)m_strSql,_variant_t((IDispatch *)theApp.m_pConnection,true),
adOpenStatic,adLockOptimistic,adCmdText);
}
catch(_com_error e)
{
AfxMessageBox("读取数据库失败！");
}

m_pRecordset->AddNew();
if(!m_pRecordset->adoEOF)
{
vUserId=theApp.m_strUserID;
vTestDate=theApp.m_strDate;
if(m_lTestTime==0.0)m_lTestTime=1;
vSpeed=inputTotal*60/m_lTestTime;
vRight=inputRight;
vWrong=inputWrong;
vPercent=inputRight*100/inputTotal;
vEndTestTime=((CMainFrame *)AfxGetMainWnd())->m_strTime;
vTestFile=m_strTestFile;
vTestTime=m_lTestTime;

m_pRecordset->PutCollect("UserId",vUserId);
m_pRecordset->PutCollect("TestDate",vTestDate);

m_pRecordset->PutCollect("EndTestTime",vEndTestTime);
m_pRecordset->PutCollect("Speed",vSpeed);
m_pRecordset->PutCollect("Right",vRight);
m_pRecordset->PutCollect("Wrong",vWrong);
m_pRecordset->PutCollect("Percent",vPercent);
m_pRecordset->PutCollect("TestTime",vTestTime);
m_pRecordset->PutCollect("TestFile",vTestFile);
m_pRecordset->Update();
}
m_pRecordset->Close();
((CMainFrame *)AfxGetMainWnd())->m_wndStatusBar.SetPaneText(0,"就绪");
}
写入数据库那段哪里有错？
编译通过了，运行这段时弹出：
Runtime Error!
Program:

This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.

为什么呢？
谢谢了。
回答正确的话会追加分的！

Answer 1

1.有没有导入 #import "msado15.dll" rename_namespace("ADOCG") rename("EOF", "EndOfFile")
2.有没有 进行 数据库的连接
Sql.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = XH.mdb");

以上代码看不出什么 问题，不知道是不是逻辑问题，你在这个函数 设置个断点跟下，看是哪里出了问题