急！！！一个奇怪的问题

[am2002cnfj]

把通讯录中的人员名单（一共597人员）赋值到一个多值域，代理部分代码如下，
Set vc=view.AllEntries
For i=1 To 567
Set entry=vc.GetNthEntry(i)
Set sdoc=entry.Document
Set nnUsername=New NotesName(sdoc.fullname(0))
Call item_List.AppendToTextList(nnUsername.Abbreviated)
Next
执行时候老是报错：Can't append list to a null item 27
调试时候发现当 i 执行到597时候报错，但单独调试Entry(597)这个文档，却正常。不知道怎么会这样？

[sacrefies]

Entry 是不是应该从 0 开始计数的

[xjunhua]

0 - 566