在书上抄来的代码提示错误。至少一个参数没指定值

Private Sub Command18_Click()
DoCmd.RunCommand acCmdSaveRecord
Dim rs As New ADODB.Recordset
Dim str_temp As String
str_temp = "select * from 套娃标号数据表 Where 店内编号 =" & 店内编号 & ""  '& 产品编号 &很可能是 产品编号文本框中的内容。
'Print (str_temp)


rs.Open str_temp, CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdText
If Not IsNull(rs) Then
rs("库存数量") = rs("库存数量") + 出货数量
rs.Update '更新
End If
rs.Close
Set rs = Nothing '清零


End Sub