把折损的数量输入后，首先把这个折损单写入折损表，然后查询折损的商品编号，在库存表中减去折损的数量，并显示在每个表的datagrid上。

Private Sub Command1_Click() '确定添加按钮
Dim cn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim rsss As New ADODB.Recordset
rsss.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 Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then
MsgBox "输入信息不完全，请重新输入", , "提示"
Exit Sub
Else
rss.Open "select * from 商品库存表 where  商品编号 = str(" & Text1.Text & ")", cn, adOpenKeyset, adLockOptimistic

rsss.Open "select * from 商品折损表 ", cn, adOpenDynamic, adLockBatchOptimistic
rsss.AddNew
rsss.Fields("折损单编号") = Text1.Text
rsss.Fields("折损商品编号") = Text2.Text
rsss.Fields("折损商品名称") = Text3.Text
rsss.Fields("数量") = Text4.Text
rsss.Fields("折损原因") = Text6.Text
rsss.Fields("日期") = Text7.Text
rsss.Fields("金额") = Text5.Text
rsss.Update

rss!商品库存量 = rss!商品库存量 - Val(Text4.Text)
rss.Update
MsgBox "已添加"
End If

spzsglck.Adodc1.Refresh '表格马上更新
Set spzsglck.DataGrid1.DataSource = spzsglck.Adodc1
spzsglck.DataGrid1.Refresh
spzsglck.Show
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text6.Text = "过期"
Text7.Text = Date

End Sub

现在是所有的功能不能实现，不能添加，而且不能修改库存量，每次运行显示如下图的错误

rss!商品库存量 = rss!商品库存量 - Val(Text4.Text)错误在这句上

大神能不能给个解决的方案啊，我vb学的不好，

大神，一直显示没有商品记录，怎么办

呵呵我错了大神们，我把文本框的编号搞错了！呵呵，大神们为什么折损表中没有添加的记录啊 ？

好的谢谢大神，但是我现在的代码没有添加到商品折损表中也就是rsss没有添加成功

只有1个记录，没有增加，添加不成功，有点完蛋了完全看不懂啦

因为我是新手，很新的那种，所以不知道哪些要哪些不要，所以就全写上了先。