Savoy

Boa tarde Preciso de uma ajuda, estou tentando fazer uma validação em um campo do formulário para autorizar o lançamento das informações somente se o código do funcionário estiver cadastrado na tabela de funcionários. Porém esta apresentando o erro abaixo Erro em tempo de execução '3464' Tipo de dados incompatível na expressão de critério. Segue o código utilizado para validação e identificação do erro Private Sub ENTProntuário_AfterUpdate() DoCmd.SetWarnings False If IsNull(Me.ENTProntuário.Value) Or Me.ENTProntuário.Value = DLookup("[prontuario]", "Tbl_Associados", "prontuario = " & Me.ENTProntuário.Value & "") Then Comando6.Enabled = True Comando7.Enabled = True Comando8.Enabled = True Comando9.Enabled = True ENTProntuário.Enabled = True Else MsgBox "Prontuário não cadastrado! Lançamento não autorizado.", vbCritical, "ERRO" Comando6.Enabled = False Comando7.Enabled = False Comando8.Enabled = False Comando9.Enabled = False ENTProntuário.Enabled = False Me.Undo Cancel = True DoCmd.Requery End If DoCmd.SetWarnings True End Sub Desde já agradeço a ajuda Vinicius