窗体后台代码运行出错：无效外部过程

出货窗口，窗体设计:

窗体元件：

               名称                 控件类别     输入法模式

产品编号  GoodsNumber        文本框  关闭

产品名称  GoodsName           文本框  开启

出货数量  SellingQuantity       文本框  关闭

出货价     SellingPrice            文本框  关闭

出货日期  SellingDate            文本框  关闭

后台代码：

Dim cnGoods As ADODB.Connection
Dim rsGoods As ADODB.Recordset
Dim rsPurchGoods As ADODB.Recordset
Const FOUND = 1
Const UNFOUND = 0
Const DB_ERROR = -1
Private Sub IntizTextBox()
    GoodsNumber.Value = ""
    GoodsName.Value = ""
    SellingQuantity.Value = 0
    Selling Price.Value = 0
    SellingDate.Value = Date
    Tip.Caption = ""
    GoodsNumber.SetFocus
End Sub
Private Function SearchGoods(sNumber As String, sName As String)
    If rsPurchGoods.BOF And rePurchGoods.EOF Then
        SearchGoods = DB_ERROR
        Exit Function
    End If
    rsPurchGoods.NoveFirst
    Do While Not rsPurchGoods.EOF
        If sNumber = rsPurchGoods![产品编号] And sName = rsPurchGoods![产品名称] Then
            SearchGoods = FOUND
            Exit Do
        Else
            rsPurchGoods.MoveNext
            If rsPurchGoods.EOF Then
                SearchGoods = UNFOUND
                Exit Do
            End If
        End If
    Loop
    rsPurchGoods.MoveFirst
End Function
Private Sub PrintTip(Info As String)
    Tip.Caption = Info
End Sub

Private Sub cmdAddRecord_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

Private Sub Form_Load()
    Set cnGoods = CurrentProject.Connection
    Set rsGoods = New ADODB.Recordset
    rsGoods.LockType = adLockPessimistic
    rsGoods.Open "出货表", cnGoods, , , adCmdTable
    Set rsPurchGoods = New ADODB.Recordset
    rsPurchGoods.LockType = adLockPeessimistic
    rsPurchGoods.Open "进货表", cnGoods, , , adCmdTable
    Call IntizTextBox
    Call PrintTip("提示：")
End Sub
Private Sub cmdSaveRecord_Click()
    Dim Status As Long
    Status = SearchGoods(GoodsNumber.Value, GoodsName.Value)
    If Status = FOUND Then
        rsGoods.AddNew
        rsGoods![产品编号] = GoodsNumber.Value
        rsGoods![产品名称] = GoodsName.Value
        rsGoods![出货数量] = SellingQuantity.Value
        rsGoods![出货价] = SellingPrice.Value
        rsGoods![出货日期] = SellingDate.Value
        rsGoods.Update
        Call PrintTip("提示：保存完毕！")
    ElseIf Status = UNFOUND Then
        Call PrintTip("提示：该产品从来没有进过货，出货失败！")
    ElseIf Status = DB_ERROR Then
        Call PrintTip("提示：数据库中无任何产品可出货，请及时添加！")
        End If
End Sub
Private Sub cmdAddRecord_Click()
    Call IntizTextBox
End Sub
Private Sub cmdExitWindow_Click()
    DoCmd.Close
End Sub