数据库给数组赋值,为啥总出错!

这是程序的一部分
i=0
Do Until LocRst2.EOF
tkxk(i) = LocRst2.Fields("温度")
i = i + 1
LocRst2.MoveNext
Loop
这个程序是给数组tkxk(i)赋值,我想为什么不能赋值,多谢指教!

数组初始化了吗?长度是多少?

初始化了,长度是100,数据库里面有60组数据.

多谢大家啦,我问题已经解决了,是数据库的问题,数据库缺少一个数据,所以数据总是附空值.

为什么总是一个相同的数据了，与数据库中的数据不同，请各位给我解决，谢谢高手。
Private Sub Command1_Click()
Dim a(1000000)
rs1.Open "select * from 声发射 ", Cnn, adOpenKeyset

For i = 1 To rs1.RecordCount

a(i) = rs1.fields(4).Value
List1.AddItem a(i)
Next i
Print rs1.RecordCount

End Sub
程序结果中只显示同样的数，请各位帮忙解决。

没有rs.movenext

如果你喜欢while not rs.eof的话你就会很清楚没有rs.movenext，死循环

赋值前验证下是否为空值啊

谢谢大家，