用NotesViewEntryCollection取文档遗漏

用NotesViewEntryCollection取文档，总有第一份无法取出但view中确实有，代码已做了判断，请教高手指点。
用法如下：
Set view=db.GetView("vw_view")
Set ecn=view.GetAllEntriesByKey(Key,True)
Set entry=ecn.GetFirstEntry
Do While Not entry Is Nothing
  If entry.Isvalid Then
   If entry.Isdocument Then
                         .....
   End If
  End If
  Set entry=ecn.Getnextentry(entry)
Loop收起