[Resolvido]DLookup - retornando erro de incompatibilidade

Boa tarde senhores,

Tenho uma rotina que gostaria de buscar um código em uma tabela conforme um determinado campo de um formulário.
Estou tentando usar o DLookup conforme abaixo;

Private Sub IdCliente_GotFocus()
Dim varX As Variant

If Not IsNull(Me.CNPJ_CPF) Then
varX = DLookup("[Codigo]", "tb_Clientes", "[CNPJ] = " & (Me.CNPJ_CPF))
Me.IdCliente = varX
End If
End Sub

O problema é que recebo uma mensagem de erro em tempo de execução: 3464 (Tipo de dados incompatíveis na expressão critério).
Fiz e refiz os testes, o nome da tabela e os tipos dos campos estão corretos, já vi vários exemplos e não consegui sucesso.

Peço aqui a ajuda dos mestres.

Obrigado!

bom dia amigo.
O que pode estar acontecendo é o seguinte, se o campo cnpj for um campo de tipo Número, não é necessário aspas simples para indicar um valor, mas se o campo for texto, você precisa colocar o valor entre aspas simples.


tente assim:

varx = Dlookup("Codigo", "tbl_Clientes", "CNPJ = '" & Me.Cnpj_Cpf.Value & "'")

acho que seu problema sera resolvido

Ok, colega, era isso mesmo, já havia chegado a essa solução, mesmo assim, obrigado pela ajuda!