计算机错误代码3420,如何解决vba运行时错误3420

当用户输入新记录时，我有以下检测重复产品名称。如何解决vba运行时错误3420

Private Sub ProdName_BeforeUpdate(Cancel As Integer)

Dim Product As String

Dim stLinkCriteria As String

Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

Product = Me.ProdName.value

stLinkCriteria = "[ProdName]=" & "'" & Product & "'"

If DCount("ProdName", "ProdProduct", stLinkCriteria) > 0 Then

Me.Undo

MsgBox "Warning duplicate entry " _

& Product & " has already been entered." _

& vbCr & vbCr & "You will now be taken to the record.", vbInformation _

, "Duplicate Information"

'Go to record of original product name

rsc.FindFirst stLinkCriteria

Me.Bookmark = rsc.Bookmark

End If

Set rsc = Nothing

End Sub

代码检查，发现重复之后却显示以下错误和不走的原单记录：

运行时错误“3420” 对象无效或不再设置

请有人帮我解决问题吗？

2017-02-19

ezybusy