如何变成循环

现在只是第一条记录能够执行，想要从第一条到最后一条都可以执行
Private Sub Command1_Click()
Dim a, b As Integer
Data1.Recordset.MoveFirst
a = Val(Text5.Text)
b = Val(Text6.Text)
Text4.Text = a - b
Data1.Recordset.MoveLast
End Sub

[ 本帖最后由 qgyun 于 2008-5-17 13:59 编辑 ]

如何变成循环？现在只是第一条记录能够执行，想要从第一条到最后一条都可以执行

Private Sub Command1_Click()
Dim a, b As Integer
Data1.Recordset.MoveFirst
a = Val(Text5.Text)
b = Val(Text6.Text)
Text4.Text = a - b
Data1.Recordset.MoveLast
End Sub

while not Data1.Recordset.eof
a = Val(Text5.Text)
b = Val(Text6.Text)
Text4.Text = a - b
Data1.Recordset.movenext
wend
试试这个

应该有个movenext，支持楼上！！！

谢谢大家

已解决