[5分]更新单价表报错

Private Sub 零售价_LostFocus()

Dim Rst As DAO.Recordset
Dim str As String

     If IsNull(Me.货品编码) Then
        MsgBox "请输入货品编码!", vbCritical, "提示："
        Me.货品编码.SetFocus
        Exit Sub
     Else
      If IsNull(Me.成本价) Then
        MsgBox "请输入成本价!", vbCritical, "提示："
        Me.成本价.SetFocus
        Exit Sub
     Else
       If IsNull(Me.批发价) Then
        MsgBox "请输入批发价!", vbCritical, "提示："
        Me.成本价.SetFocus
       Exit Sub
      End If
    End If
     End If
    Me.Refresh

    Me.Refresh
 
        Set Rst = CurrentDb.OpenRecordset("商品入库明细表temp", dbOpenDynaset)
        Rst.AddNew
        Rst("货品名称及规格") = Me.货品名称及规格
        Rst("货品编码") = Me.货品编码
        Rst("入库包装") = Me.入库包装
        Rst("入库数量") = Me.入库数量
        Rst("单位") = Me.单位
        Rst("成本价") = Me.成本价
        Rst("成本额") = Nz([入库数量]) * Nz([成本价])
        Rst("批发价") = Me.批发价
        Rst("批零价") = Me.批零价
        Rst("零售价") = Me.零售价
        Rst("网络价") = Me.网络价
        Rst("入库单号") = Me.入库单号
        Rst("件包装") = Me.包装数量
        Rst("仓位") = Me.仓位
       ' Rst("批零价") = Nz([批发价]) * 1.05     '加百分之5
       ' Rst("零售价") = Nz([批发价]) * 1.5      '加百分之50
       
        Rst.Update
        Rst.Close
        Set Rst = Nothing
        '刷新数据
       
       
        DoCmd.Echo False
        str = "update [货品价格表] SET [货品价格表].成本价='" & Me.成本价 & "',[货品价格表].批发价='" & Me.批发价 & "',[货品价格表].批零价='" & Me.批零价 & "',[货品价格表].零售价='" & Me.零售价 & "',[货品价格表].网络价='" & Me.网络价 & "' where [货品价格表].货品编码='" & Me.货品编码 & "'"
        DoCmd.RunSQL (str)
      '  Form_商品入库窗体.Requery
        Form_商品入库窗体.Child2.Requery
        Forms!进销窗体.frmChild.Form!Child.Requery
        Form_商品入库窗体!Child0!货品编码.SetFocus
        DoCmd.Echo True
        'MsgBox "保存成功!", vbInformation, "提示"
         Me.入库包装 = Null:
    'End If
    Me.Refresh
    Me.TimerInterval = 1
   
End Sub

请老师们帮我看看究竟是什么地方错误？如可纠正？