执行程序后，出现：外部名未定义？？

黄条指向：If Rst.Fields([j(" & jj & ")]) = "银行存款" Then

改为：

Private Sub Command14_Click()
Dim ii, jj, kk As Integer
For ii = 0 To Rst.RecordCount
For jj = 0 To Rst.Fields.Count
If Rst.Fields("j(" & jj & ")") = "银行存款" Then
If Not Rst.EOF() Then

n.Text = Rst.Fields("n").Value & ""

Text1(0).Text = Rst.Fields("j(" & jj & ")").Value & ""
End If
End If
Next jj
Next ii
End Sub

执行后：在。。。集合中，找不到项目
黄条还是指在：“If Rst.Fields("j(" & jj & ")") = "银行存款" Then”

DB1。MDB的表FL2里面一共47个字段，

字段名分别为：N、ZY1、Z（1）、J（1）、D（1）、

ZY2、Z（2）、J（2）、D（2）、

。。。

。。。

ZY9、Z（9）、J（9）、D（9）、

JJ就是J（I）里面的I

还是不行！

帮我看看《没有实现循环》那个题目！

谢谢！