错误提示"至少一个参数没有被指定值"

十年磨一剑

各位好，我这里有一个ADO程序，是在“物料入库”的同时，用最新一次入库的物料单价，去更新”物料库“中该物料的单价。
但我程序好象有点问题，每次更新物料入库时，出现错误提示：”至少一个参数没有被指定值“，请各位帮忙指点一下，谢谢！！

Private Sub Form_AfterUpdate()
  Dim rs物料库 As ADODB.Recordset
  Dim SQLStmt As String
On Error GoTo HandleError
  
  If Not IsNull(Me!物料编号) Then
    Set rs物料库 = New ADODB.Recordset
    If Not IsNull(Me!单价) Then
      SQLStmt = "SELECT * FROM 物料库 " _
        & "WHERE 物料编号 = " & Me!物料编号
      rs物料库.Open SQLStmt, CurrentProject.Connection, _
        adOpenDynamic, adLockOptimistic
      
      If Not rs物料库.EOF Then
        rs物料库![Unitprice] = Me!单价
        rs物料库.Update
      End If
      rs物料库.Close
      Set rs物料库 = Nothing
    End If
  End If
  
ExitHere:
  Exit Sub
  
HandleError:
  MsgBox "Error: " & Err.Description, vbCritical, "Access Error"
  Resume ExitHere
End Sub

十年磨一剑

感谢版主，最近有点忙，没上论坛，我先照您的方法改一下，如有问题，再向您请教。

十年磨一剑

版主真高，现在第一个问题解决了，可是如你说的第二点，我的代码只能更新一条记录的字段，可是现在要更新多条符合条件的字段, 如何运用.MoveNext呢，请赐教，谢谢！