vb sql运算问题？？

Question

我想计算“字段1”中的数据。
就是在“字段1”中上一条记录减下一条记录，一直到最后一条记录，
得出的结果输出到“字段2”中。字段1 字段2
 9
 7
 8
 5
 2
 2
…
…
…
n请各位高手写出代码来！谢谢！

Answer 1

下面if函数的那句有编译错误，应该怎样修改？？Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\成绩\分数.mdb;"
sql = "select * from 分数表"
Set rs = New ADODB.Recordset
Dim i as Integer 
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
while not rs!eof
    
    if i <> 0 then
        i=rs.字段1-i  
        rs.字段2=i
    end if
    i=rs.字段1
wend
rs.update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub