我想把数据库里Rst.Fields().Value=“银行存款”的记录罗列在表：FL3上面，怎么弄啊？

最好再显示在FORM上面如（DGRID表）！

原来表FL2里有日期、摘要、总账科目、借、贷4*9+1=37个字段

FL3表为银行日记账里有日期、摘要、借、贷4个字段！

根据上次的成功的统计求和代码如下：
For i = 1 To 9
s = "Select Sum([j(" & i & ")]) from fl2 where [z(" & i & ")]='银行存款' GROUP BY [Z(" & i & ")]"
If conn.Execute(s).EOF = False And IsNull(conn.Execute(s)(0)) = False Then
a = a + conn.Execute(s)(0)
End If
Next

修改为，全部罗列输出打印出来！

Private Sub Command1_Click()
Dim i2, a2 As Single
Dim s2 As Long
For i2 = 1 To 9
s2 = "Select ([j(" & i2 & ")]) from fl2 where [z(" & i2 & ")]='银行存款'"

Print s2

Next
End Sub

执行后，出现：
“实时错误 " 13 " ”
类型不匹配！

黄条指向：s2 = "Select ([j(" & i2 & ")]) from fl2 where [z(" & i2 & ")]='银行存款'"

j() 和z() 是怎么定义的?

s="select 银行存款 from fl2"
rs.Open Trim$(s), conn, adOpenKeyset, adLockOptimistic
for i2 =0 to rs.recordsetcount-1
print rs.feild("银行存款")
next


是不是这样子的？

[此贴子已经被作者于2007-8-21 0:26:45编辑过]

d(1)字段、d(1)字段、d(1)字段、。。。。d(9)字段、
j(1)字段、j(2)字段、j(3)字段。。。。。。j(9)字段

总共这个表共4*9+1=37个字段！

请看这个会计凭证记录程序附件里面的表！