vb如何ACCESS中数字与输入数字相加

比如说 一个字段为50  你在TEXT中输入20 然后在MSFHLEX总显示50+20 
怎么才能实现，  sql="update 表名 set 字段名=字段名+"& cdbl(text1.text) &""
conn.execute sql
题目有些大，在在MSFHLEX中哪个格子显示也没说

引用 2 楼 dbcontrols 的回复:

题目有些大，在在MSFHLEX中哪个格子显示也没说

Dim s As Integer
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "书名=" & " '" & Text1 & " '"
If Adodc1.Recordset.EOF Then
MsgBox "无此书!", , "提示"
Else
s = Val(InputBox("请输入销售图书的数量", , "图书销售"))
Adodc1.Recordset.Fields("入库数量") = Adodc1.Recordset.Fields("入库数量") - s
End If
End Sub
代码是这样的， 可是数据无显示。我用的是MSHF显示ACCESS

引用 1 楼 leftie 的回复:

sql="update 表名 set 字段名=字段名+"& cdbl(text1.text) &""
conn.execute sql

Dim s As Integer
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "书名=" & " '" & Text1 & " '"
If Adodc1.Recordset.EOF Then
MsgBox "无此书!", , "提示"
Else
s = Val(InputBox("请输入销售图书的数量", , "图书销售"))
Adodc1.Recordset.Fields("入库数量") = Adodc1.Recordset.Fields("入库数量") - s
End If
End Sub
 这个是我写的 但是不知道哪里错了。 请你帮我看下。 貌似那几天还能用。但是现在不能修改数据。 Else
s = Val(InputBox("请输入销售图书的数量", , "图书销售"))
Adodc1.Recordset.Fields("入库数量") = Adodc1.Recordset.Fields("入库数量") - s
Adodc1.Recordset.Update
Adodc1.Refresh

End If

补充：VB ,  数据库(包含打印，安装，报表)