pRs.Open ( szSql , CADORecordset::openUnknown ) ;
        int nCount = pRs.GetRecordCount () ;
        while ( !pRs.IsEOF () )
        {
            pRs.Delete () ;
            pRs.MoveNext () ;
        }
        ASSERT ( pRs.GetRecordCount () == 0 ) ;

BOOL CADORecordset::Delete()
{
    if(m_pRecordset->Delete(adAffectCurrent) != S_OK)
        return FALSE;

    if(m_pRecordset->Update() != S_OK)
        return FALSE;
    
    m_nEditStatus = dbEditNone;
    return TRUE;
}