现在再改为：

Private Sub Command1_Click()
Dim jj, ss, ii As Integer
Dim d() As Integer
Dim f() As Integer
Dim h() As Integer

For ii = 0 To Rst.RecordCount
For jj = 0 To Rst.Fields.Count
If Rst.RecordCount > 0 Then
If Rst.Fields(jj).Value = "银行存款" Then
d(ii) = Rst.Fields(1).Value
h(ii) = Rst.Fields(2).Value
f(ii) = Val(Rst.Fields(jj + 2).Value) + Val(Rst.Fields(jj + 3).Value)
Else
Rst.MoveNext
Print d(ii)
Print f(ii)
Print h(ii)
End If
End If

Next jj
Next ii
End Sub

运行后，出现：

下标越界！

Dim d() As Integer
Dim f() As Integer
Dim h() As Integer

动态数组……所以你直接赋值不行……
改成:
Dim d() As Integer
Dim f() As Integer
Dim h() As Integer

ReDim d(Rst.RecordCount)
ReDim f(Rst.RecordCount)
ReDim h(Rst.RecordCount)

再改：

For ii = 0 To Rst.RecordCount
If Rst.RecordCount > 0 Then
For jj = 0 To Rst.Fields.Count

If Rst.Fields(jj).Value = "银行存款" Then
d(ii) = Rst.Fields(1).Value
h(ii) = Rst.Fields(2).Value
f(ii) = Val(Rst.Fields(jj + 2).Value) + Val(Rst.Fields(jj + 3).Value)
Print d(ii)
Print f(ii)
Print h(ii)
Else
Rst.MoveNext
End If
Next jj
Else
MsgBox "没有记录！"
End If
Next ii

执行时出现：

实时错误“3021”

BOF或EOF中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

。。。
。。。
ReDim d(Rst.RecordCount)
ReDim f(Rst.RecordCount)
ReDim h(Rst.RecordCount)

。。。
。。。
插入了RDEM，结果：
执行时出现：

实时错误“3021”

BOF或EOF中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。