关于集合的怪问题

[fxhnkf]

小弟遇到下面的奇怪问题！！
每次进入For each循环对集合进行遍历时，总会出现错误
“对象不可用”
为什么呢？？
高手们帮帮忙啊！！！！

''''''''在模块中定义下面的类型''''''''''
type LineRef
LineCtoNCol as new collection
LineNtoCCol as new collection
end type

global LineRef as LineRef
''''''''''''''''''''''''''''''''''''''

rs.Open "select distinct linecode,linename from test_linebasicinfo", gafcConnect
If rs.EOF = False Or rs.BOF = False Then
rs.MoveFirst
While rs.EOF = False
LineRef.LineCtoNCol.Add rs!linename, rs!linecode
LineRef.LineNtoCCol.Add rs!linecode, rs!linename
rs.MoveNext
Wend
End If
rs.Close
''''''infocombo为ComboBox
For Each LineInfo In LineRef.LineCtoNCol
InfoCombo.AddItem LineInfo
InfoCombo.ItemData(InfoCombo.NewIndex) = LineRef.LineNtoCCol(LineInfo )
Next

[fxhnkf]

高手来帮帮忙啊！！

[fxhnkf]

怎么没有人来看呢？？

[paopaozhu8899]

LineInfo你是怎么定义的？for each XXX的XXX必须为变体形或者对象

[fxhnkf]

For Each LineInfo In LineRef.LineCtoNCol
Lineinfo 是变体型的
我现在发现一个更奇怪的问题
LineRef.LineNtoCCol(1)
都出错了，告诉我"对象不再有效"
这是为什么呢？？

[fxhnkf]

会不会是因为在模块中用
global LineRef as LineRef声明的自定义类型的变量
在窗体中无法使用呢？？？

[fxhnkf]

真是郁闷
哪位高手帮帮忙啊！！

[xayzmb]

global LineRef as LineRef
这一句好象不对吧???

[Tiger_Zhao]

rs.Close <-
Field 属于 RecordSet，记录关闭后字段被释放，当然不可用了