Tipo de dados incompativel com dados de critério.

Erro em tempo de execução 3464

Tipo de dados incompativel com dados de critério.

Pretendo realizar uma consulta onde a pessoa digite o número do processo que tem 18 caracteres aproximadamente para isso usei o campo texto porém está dando a mensagem a cima. utilizando o tipo inteiro funciona perfeita mente mas com texto da problema alguém ajuda?

Private Sub Num_Processo_Acomp_LostFocus()

Dim rs As DAO.Recordset

Dim Num_Processo_Acomp As String



Set rs = Me.RecordsetClone
Num_Processo_Acomp = Me![Num_Processo_Acomp]
rs.FindFirst "[Num_Processo_Acomp]=" & Num_Processo_Acomp


If rs.NoMatch Then
Erro em tempo de execução 3464
Tipo de dados incompativel com a expressão do cretério


DoCmd.RunCommand acCmdUndo
DoCmd.GoToRecord , , acNewRec

Me![Num_Processo_Acomp] = Num_Processo_Acomp
Me![Num_Processo_Acomp].SetFocus

Else

If Me.Dirty Then
Me.Undo
End If

'DoCmd.RunCommand acCmdUndo
Me.Bookmark = rs.Bookmark


End If
End Sub

Olá agradeço a ajuda. mas infelizmente não deu certo a mensagem permanece. na mesma linha em que fiz a alteração. Em anexo formato zip para quem quiser ver o cadastro o primeiro campo ponho o número para consulta dai ele da pau. Alguém pode ajudar?