listview ado access 数据读取问题!

数据库是版本是access2000
用下面的函数添加listview项目，，只能添加数据库中最后一条记录，怎么解决
BOOL AddItem(HWND hWndUser,_RecordsetPtr pRecordset)
{
try
{
if(!pRecordset->FirstOfFile)
pRecordset->MoveFirst();
else
{
MessageBox(NULL,TEXT("表内数据为空"),TEXT("!"),MB_OK);
return FALSE;
}
while(!pRecordset->EndOfFile)
{
_variant_t var;
var.vt=VT_I4;
var.intVal=0;
int iSubItem;

_bstr_t bstrVar=(_bstr_t)pRecordset->GetCollect(var);
    char *pText=bstrVar;
   
    LVITEM lvi;
    ListView_DeleteAllItems(hWndUser);
    ZeroMemory(&lvi,sizeof(lvi));
     
    lvi.mask=LVIF_TEXT;
    lvi.iItem=ListView_GetItemCount(hWndUser);;
    lvi.pszText=pText;
    lvi.cchTextMax=sizeof(pText);
    lvi.iSubItem=0;
   
    if(ListView_InsertItem(hWndUser, &lvi) == -1)
    return FALSE;
   
    for(iSubItem=0;iSubItem <pRecordset->Fields->Count;iSubItem++)
    {
    var.intVal=iSubItem;
    lvi.iSubItem=iSubItem;
    _bstr_t bstrVar