商品原来有库存的，现在添加的商品数量要加在原来的 数据上这个怎么写代码啊。

我先是用条形码查询，查询的是商品信息表，然后要修改的是商品库存表。如何写代码 跪求大神

对不起大家，图发错了 ，

Private Sub Command5_Click(Index As Integer)
Dim cn As New ADODB.Connection
Dim rss As New ADODB.Recordset
rss.CursorLocation = adUseClient
ConnectionString = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=csjxcglxt;Data Source=TANGJIANQIAO-PC"
cn.Open ConnectionString
If Text3.Text = "" Then
MsgBox "请填写关键词！", vbExclamation, "提示信息"
Exit Sub
End If
rss.Open "select * from 商品库存表 where  商品编号 = str(" & Text3.Text & ")", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "没有这条记录！", vbExclamation, "提示信息"
End If
rss!商品库存量 = rss!商品库存量 + Val(" text4.text")
rss.Update
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=csjxcglxt;Data Source=TANGJIANQIAO-PC"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnn
rs.Open "select * from 商品信息表", cnn, adOpenDynamic, adLockBatchOptimistic
Set cmm = New
Set cmm.ActiveConnection = cnn
End Sub
这是我的代码，不能实现功能，

我是新手有很多不会的地方代码也是各种不知道怎么简单，所以很多重复的地方。

十分感谢，完成了

大神其实刚刚又出问题了，就是如果库存为0，库存表内无记录，就不能添加了，怎么样才能让原本无记录的可以像添加记录一样，先添加一个。