[Resolvido]erro de sintaxe no findfirst

Olá a todos
tenho um campo no meu form que serve para bloquear telefones, so que esta dando um erro de sintaxe
erro em tempo de execução 3077

o Problema é que o campo na tabela é de telefones e esta gravado assim "(62) 9919-0000" ou seja tem um parenteses, sera que ele que esta dando conflito?

codigo abaixo:

Código:


Private Sub tel_residencial_BeforeUpdate(Cancel As Integer)

Dim Busca As String
Dim stLinkCriteria As String
Dim Procura As String

Dim rsc As DAO.Recordset

If Not IsNull(Tel_Residencial) Then

Set rsc = Me.RecordsetClone

Busca = Me.Tel_Residencial.Value

stLinkCriteria = "Tel_Residencial= '" & Busca & "'"

If DCount("Tel_Residencial", "Excluidos", stLinkCriteria) > 0 Then
   
    Me.Undo
    MsgBox "Atenção! " _
    & Busca & " Esse Telefone Foi Bloqueado pelo Sistema, Contate o Supervisor!." _
    & vbCr & vbCr & "Não Ligar, Não Agendar, avise o Supervisor.", vbInformation _
    , "Bloqueado"
   
 
    Procura = Busca
    rsc.FindFirst Procura ' <=  o erro ta aqui o valor na tabela esta formatado como telefone ex.: (62) 0213-1321
   
   
   
    Me.Bookmark = rsc.Bookmark
   
End If

Else

End If

Set rsc = Nothing

End Sub



Alguma dica?

Boa tarde, Leonardo

Tente assim:

Private Sub tel_residencial_BeforeUpdate(Cancel As Integer)

Dim Busca As String
Dim stLinkCriteria As String

Dim rsc As DAO.Recordset

If Not IsNull(Tel_Residencial) Then

Set rsc = Me.RecordsetClone

Busca = Me.Tel_Residencial.Value

stLinkCriteria = "Tel_Residencial= '" & Busca & "'"

If DCount("Tel_Residencial", "Excluidos", stLinkCriteria) > 0 Then

Me.Undo
MsgBox "Atenção! " _
& Busca & " Esse Telefone Foi Bloqueado pelo Sistema, Contate o Supervisor!." _
& vbCr & vbCr & "Não Ligar, Não Agendar, avise o Supervisor.", vbInformation _
, "Bloqueado"

rsc.FindFirst stLinkCriteria

Me.Bookmark = rsc.Bookmark
Set rsc = Nothing

End If

End If

End Sub

Ok, resolvido deu certo
Obrigado

Esqueceram o Resolvido. Desta vez eu coloco. Bom trabalho