[Resolvido]Erro em tempo de execução '3420' - stLinkCriteria

Private Sub txtNOME_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.NOME.Value
stLinkCriteria = "NOME= '" & Busca & "'"
If DCount("NOME", "tb_Cliente",stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o registro " _
& Busca & " já existe." _
& vbCr & vbCr & "Mostrar o registro.", vbInformation _
, "Registro Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub



Erro em tempo de execução '3420':
O objeto não é válido ou não está definido.

Ao DEPURAR para nesta linha

rsc.FindFirst stLinkCriteria

Boa tarde,
Como vem do Me.RecordsetClone, convém verificar o se o Me.RecordsetClone tem registos

Fiquei na dúvida agora.

Pois peguei este código para adaptar ao meu formulário
que está ligado a tabela de Cliente (tb_Cliente)

Código:

Private Sub txtNOME_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String

Busca = Me.txtNOME.Value
'Aplica o criterio á busca
stLinkCriteria = "[NOME]=" & "'" & Busca & "'"

    If DCount("NOME", "tb_Cliente", stLinkCriteria) > 0 Then
        'Desfaz a digitação
        Me.Undo
        'Mensagem de existencia do registro
        MsgBox "Atenção o registro " _
        & Busca & " já existe." _
        & vbCr & vbCr & "Vai mostrar o registro.", vbInformation _
        , "Registro Duplicado"
   
            With Me.RecordsetClone
                'Vai para o registro original
                .FindFirst "NOME='" & Busca & "'"
                Me.Bookmark = .Bookmark
            End With
    End If
End Sub

Valeu amigo, D+
Muito agradecido

Obrigado pelo retorno o forum agradece.