文明5 野蛮人经验修改:求助,关于ACCESS中按钮代码纠正错误

Private Sub Command19_Click()
Dim curdb As Database
Dim curRS As Recordset
Dim deviceCnt As Integer
Set curdb = CurrentDb
Set curRS = curdb.OpenRecordset("select * from 库存表 where 产品名称='" & 产品名称.Value & "'
and 产品规格='" & 产品规格.Value & "' and 长度='" & 长度.Value & "' and 颜色='" & 颜色.Value & "'")
If Not curRS.EOF Then
deviceCnt = curRS.Fields("库存量")
deviceCnt = deviceCnt + CInt(进库数量.Value)
curdb.Execute "update kc set 库存量=" & deviceCnt & _
" 产品名称='" & 产品名称.Value & "' "
and 产品规格='" & 产品规格.Value & "' and 长度='" & 长度.Value & "' and 颜色='" & 颜色.Value & "'"
Else
With curRS
.AddNew
.Fields("产品编号") = 产品编号.Value
.Fields("产品名称") = 产品名称.Value
.Fields("产品规格") = 产品规格.Value
.Fields("长度") = 长度.Value
.Fields("颜色") = 颜色.Value
.Fields("库存量") = CInt(进库数量.Value)
.Update
End With
End If
cmd14.Enabled = True
cmd14.SetFocus
cmd19.Enabled = False

End Sub
错误提示在第6行