[Resolvido]Comparar data digitada num campo, com data registada numa tabela com Dlookup

Boa tarde Amigos

Tenho este código para alertar se é sabado ou domingo ou feriado.

Private Sub txtHireDate_AfterUpdate()

If Weekday(txtHireDate) = 1 Or Weekday(txtHireDate) = 7 Or txtHireDate = DLookup("[Dataferiado]", "tblferiados", "[Dataferiado] ") Then

Quando é sábado ou domingo funciona...... mas não está a funcionar quando tem de ir a tabela feriados comparar se é igual.

Obrigado

Cheguei lá

If Weekday(txtHireDate) = 1 Or Weekday(txtHireDate) = 7 Or (Not IsNull(DLookup("[Dataferiado]", "tblferiados", "[Dataferiado] =#" & Format(Me.txtHireDate, "mm/dd/yyyy") & "#"))) Then
Obrigado