[Resolvido]Dificuldade com dlookup

Pessoal estou usando esta expressão

Private Sub texto10_AfterUpdate()
Me.txtnome.Value = DLookup("[nomefornecedor]", "fornecedor", "[Codfornecedor]= '" & Me.Texto10.Value & "'")
Me.txtnome.Requery
End Sub
Para retorna o nome do fornecedor apos entrar com seu código,mas recebo uma mensagens de dados imcopativeis

nome tabela=fornecedor
campo tabela= codfornecedor numerico
campo tabela=nomefornecedor texto
campo form = texto10 onde entro com codigo
campo form-txtnome
o que estaria errado?

Agravina

Verifique se os nomes dos campos estão bem escritos.

Codfornecedor é numerico ou texto ?

sim nomes estão corretos codfornecedor é campo numerico.

Se é numérico, retire as Aspas.

Perguntinha básica,Qual campo devo retirar as aspas?
retirei do codfornecedor mas a linha fica em vermelho

Certo Criquio era a aspa simples,que estava demais né!

Isso. Aspas simples no critério só quando for um campo texto no critério. Aspas duplas quando for numérico e quando for tipo data e hora é um #?

Me.txtnome.Value = DLookup("[nomefornecedor]", "fornecedor", "[Data]=#" & Me.txtData & "#")

Tópico resolvido?

Criquio Desculpa sempre acabo por esqueçer do resolvido.

Tranquilo.