如何在vba代码中添加或减去从access读取的值？

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\myDB.accdb"
conn.Open

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM tableName", conn

' 遍历记录并对值进行操作
While Not rs.EOF
    Dim value As Integer
    value = rs.Fields("fieldName").Value  ' 将"fieldName"替换为实际字段名

    ' 添加或减去值
    value = value + 10  ' 例如，增加10
    ' value = value - 5  ' 例如，减去5

    ' 更新记录中的值
    rs.Fields("fieldName").Value = value

    rs.MoveNext
Wend

rs.Close

rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing