请大家来帮忙看一看

Question

 Set Rs = DB1.OpenRecordset(sql) 在这个语句出现错误，错误提示“updat语句错误”请大家看一看。Private Sub Command1_Click()
Dim sql As String
Dim DB1 As Database
Dim Rs As DAO.Recordset                '申明Rs为DAO记录集对象
Set DB1 = OpenDatabase(App.Path + "\data\db1.mdb")
Set Rs = DB1.OpenRecordset(Name:="kucun", Type:=dbOpenDynaset)
         sql = "update kucun set "
         sql = sql & "shangpinmingcheng ='" & Text1.Text & "',"
         
         sql = sql & " shangpinxinghao='" & Text2.Text & "',"
         
         sql = sql & "jinhuojiage='" & Text3.Text & "',"
         
         sql = sql & "xiaoshoujiage='" & Text4.Text & "',"
         
         sql = sql & "shangpindanwei='" & Combo1.Text & "',"
         
         sql = sql & "shangpinleixinid='" & Combo2.Text & "',"
         
         sql = sql & "tishishuliang='" & Text6.Text & "',"
         
         sql = sql & "where shangpinxinghao=" & Text2.Text
         
         'strSQL = strSQL & "M_Name_S='" & RealString(Me.MerchName) & "',"
              
         Set RS = DB1.OpenRecordset(sql)
      With Rs
        
       .AddNew                      '开始新增新据
       
   !shangpinmingcheng = Text1.Text '商品名称
       !jinhuojiage = Text3.Text             '进货价格
       !xiaoshoujiage = Text4.Text        '销售价格
       !shangpinleixingid = Combo2.Text  '商品类型
       '!kucunshuliang = ruku.Text                 '入库数量
       !shangpindanwei = Combo1.Text      '单位
       !tishishuliang = Text6.Text             '提示
       !shangpinxinghao = Text2.Text         '型号
     .Update                       '更新数据
     Form1.ListView1.Refresh     
       .Close                        '关闭当前记录集   End With   Set Rs = Nothing
   Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text6.Text = ""
   
End Sub

Answer 1

sql = sql & "tishishuliang='" & Text6.Text & "',"
我知道是这这里多了一个，符号。
但是删除了这个后。
"where shangpinxinghao=" & Text2.Text
这里又出现问题了。请大家在帮我找一找

Answer 2

加一个空格,而且后面你怎么又不要'了呢
sql = sql & " where shangpinxinghao='" & Text2.Text & "'"

Answer 3

sql = "update kucun set "
         sql = sql & "shangpinmingcheng ='" & Text1.Text & "',"
         
         sql = sql & " shangpinxinghao='" & Text2.Text & "',"
         
         sql = sql & "jinhuojiage='" & Text3.Text & "',"
         
         sql = sql & "xiaoshoujiage='" & Text4.Text & "',"
         
         sql = sql & "shangpindanwei='" & Combo1.Text & "',"
         
         sql = sql & "shangpinleixinid='" & Combo2.Text & "',"
         
         sql = sql & "tishishuliang='" & Text6.Text & "' "
         
         sql = sql & "where shangpinxinghao='" & Text2.Text & "'"

Answer 4

         sql = sql & " tishishuliang='" & Text6.Text & "'," 这个不要，tishishuliang前面要加空格
         
         sql = sql & " where shangpinxinghao=" & Text2.Text 'where前面也要加空格，商品型号如果是string的话，记得加单引号 
教你一个方法，当你把sql粘连好了后，断点debug出来放到数据库里面单独运行试试看能不能过