见鬼了！见鬼了！

[grievefish]

我编制了这样的几条的程序，用一个表的一个字段建立记录集，用这个记录集的记录填充一个COMBOBOX控件的LIST，
在类中的代码如下：
Public Property Get listleixing() As String
On Error Resume Next
listleixing = leitable![类型]
'得到下一个类型
GETNEXTlei
End Property
'下移
laitable.MoveNext
llaiend = laitable.EOF
End Sub
窗体的代码如下：
Private Sub Cmblistlei()
Dim cmbl As Integer
Dim i As Integer
cmbl = Mcdbexp.listleicount
For i = 0 To cmbl
Cmblei.List(i) = Mcdbexp.listleixing
Next
End Sub
程序连续运行没问题，但我在过程 Cmblistlei设断点，程序停止，我把鼠标移到
Mcdbexp.listleixing上检查值，每次移开再从新移其值都变化，相当于laitable.MoveNext，我好疑惑！见鬼了！见鬼了！
请大家帮我捉鬼！

[ltp3]

把鼠标移到Mcdbexp.listleixing上检查值是要执行Get listleixing过程的，不然Mcdbexp.listleixing值从何而来。