Открываю файл Excel следующим образом:
m_strConnect = "Provider=MSDASQL;Persist Security Info=False;Extended Properties=\""
"DBQ="+pMainFrame->GetMainDirectory()+"\\"+oStrFileName+";"
"DefaultDir="+pMainFrame->GetMainDirectory()+";Driver={Driver do Microsoft Excel(*.xls)};"
"DriverId=790;FIL=excel;MaxBufferSize=2048;Mode=ReadWrite;"
"MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=1;Threads=3;UID=Admin;UserCommitSync=Yes;\";";
//"Initial Catalog="+pMainFrame->GetMainDirectory();
//"+pMainFrame->GetMainDirectory()+"\\xsl.dsn;FILEDSN=;
pMainFrame->m_ptrConnectImport = NULL;
pMainFrame->m_ptrConnectImport.CreateInstance(__uuidof(Connection));
pMainFrame->m_pRSImport = NULL;
pMainFrame->m_pRSImport.CreateInstance( __uuidof(Recordset));
pMainFrame->m_pRSImport->CursorLocation = adUseClient;
pMainFrame->m_ptrConnectImport->Open(_bstr_t( m_strConnect.GetBuffer(0)),bstr_t(), bstr_t(),-1);
pMainFrame->m_pRSImport->Open((_bstr_t)sSql, _variant_t((IDispatch*)pMainFrame->m_ptrConnectImport, true),
adOpenStatic,adLockBatchOptimistic,adCmdTable);

Затем мне надо удалить несколько строк в начале таблицы
pMainFrame->m_pRSImport->MoveFirst();
if (pMainFrame->m_pRSImport->Supports(adDelete))
for(long i = 0 ; i < 5; i++ )
{
pMainFrame->m_pRSImport->Delete(adAffectCurrent);
pMainFrame->m_pRSImport->Update();
pMainFrame->m_pRSImport->MoveFirst();
}

Переоткрываю таблицу, но ничего не удалено.
Подскажите как мне тогда удалить эти строчки?