[Resolvido]Consulta campo e compara com data atual

Pessoal,
Estou com um pequeno problema ao abrir meu formulário, preciso que ele verifique a data de vencimento de um campo em uma tabela e compare com a data atual para abrir ou não a tela de chaves, mas não esta dando certo o processo quando carrego o form da "tipo de função data indefinido", segue código:

If DCount("DT_VENCIMENTO", "CHAVE", "DT_VENCIMENTO < Data()") >= 1 Then
MsgBox "SUA CHAVE DE ACESSO EXPIROU!!!", vbExclamation, "INFORMAÇÃO"
DoCmd.OpenForm "CHAVE_SYS"
End If

pessoal, desculpa a ignorancia, estava usando data() e não date(), corrigido aqui.

Não seria melhor usar o DLookup?

If DLookup("DT_VENCIMENTO", "CHAVE", "ID=1") <= Date Then

Certo.

criquio

Tem toda razão, ficou bem melhor.