一段IE控件的代码出错了。

void CPingDlg::OnDocumentCompleteExplorer1(LPDISPATCH pDisp, VARIANT FAR* URL) 
{
// TODO: Add your control notification handler code here
CComPtr <IDispatch>pDocDispatch = m_myie.GetDocument();
int subindex,randindex;
if(pDocDispatch.p !=NULL)
{
CComQIPtr<IHTMLDocument2,&IID_IHTMLDocument2> pHTMLDocument2(pDocDispatch); 
CComPtr<IHTMLAnchorElement>   pLoct; long iNum;
if(pHTMLDocument2.p !=NULL)
{
CComPtr<IHTMLElementCollection> pElements;
pHTMLDocument2->get_links(&pElements);
pElements->get_length(&iNum);
int i;
CComPtr<IDispatch> pDisp;
for(i=0;i<iNum;i++)
{
CComVariant index;
CComVariant comvar(i);
comvar.ChangeType(VT_UINT);

pElements->item(comvar,index,&pDisp);
                                               ////问题出在下面这一行
pDisp->QueryInterface(   IID_IHTMLAnchorElement,(void   **)   &pLoct); 
 
BSTR String;
pLoct->get_href(&String);
CString str=String;
MessageBox(str);
}
}
}
}
////问题出在下面这一行，i=0时正确，i=1时，程序就崩了。实际环境中iNum=33
pDisp->QueryInterface(   IID_IHTMLAnchorElement,(void   **)   &pLoct); 看不出来哪里错了，也不知道怎么调试，请高人赐教。谢谢了。