while …wend循环语句有关问题？

while ……wend循环语句问题？？
我想计算数据表里“字段1”中的数据。
就是当“字段1”有数据（数字）且“字段2”为空时，则执行循环。
在“字段1”中上一条记录减下一条记录，一直到最后一条记录，
得出的结果输出到“字段2”中。

请各位高手用while ……wend循环语句写出代码来！谢谢！


运行之前：
字段1 字段2
 9
 7
 8
 5
 2
 2

运行结果：
字段1 字段2

9 2
7 -1
8 3
5 3
2 0
2  




[解决办法]

VB code

         While Not .EOF()               x1 = .Fields("A")               .Move 1               If .EOF() Then Exit Sub               x2 = .Fields("A")               .Move -1               .Fields("B") = x1 - x2               .Update               .Move 1        Wend