bool IsEmpty = true;
CString strSql = "select * from DefinitionD";
if (!Result.GetRecord(strSql))
{
return;
}//其中的Result.GetRecord(strSql)是程序中的一个类的一个函数
m_pRs = Result.GetRs();
while (!m_pRs->adoEOF)
{
IsEmpty = false;//保证数据不为空
break;
}
if (!IsEmpty)
{
   
m_pRs->MoveFirst();   
while(m_pRs->adoEOF==VARIANT_FALSE) 
{
m_pRs->Delete(adAffectCurrent);   
m_pRs->Update();
m_pRs->MoveNext();
}
}

当数据库中只有一条记录的时候出现的错误提示:
RunTime Error 
执行程序.exe
ABNormal Program Termination
当数据库中有多条记录的时候没有出错!