[Resolvido]Na abertura do formulário emitir mensagem a partir de um critério

Tenho um formulário que faz o contole de tarefas de uma empresa, por: DatadeRecebimento, Tarefa, Demandante, DatadaConclusão, etc. Minha dúvida é a seguinte: Ao abrir o formulário (Form_Load), gostaria que fosse emitida uma mensagem de acordo com a data atual, da seguinte forma:

1- Caso haja atividade já cadastrada para o dia-> MsgBox " Existe tarefa agendada para hoje, favor verificar lista em tela." vbInformation, "TAREFAS"

2- Caso NÃO haja atividade já cadastrada para o dia-> MsgBox " Ainda não existe tarefa agendada para hoje!" vbInformation, "TAREFAS"

Minha idéia inicial era usar o DCount e como filtro uma variável TxtHoje que recebece =Data()

If DCount("DatadeRecebimento","TabTarefas","TxtHoje") > 0 then
MsgBox " Existe tarefa agendada para hoje, favor verificar lista em tela." vbInformation, "TAREFAS"
Me.Undo

Else

MsgBox " Ainda não existe tarefa agendada para hoje!" vbInformation, "TAREFAS"


End If

Desde já agradeço a colaboração.

Olá, seja bem vindo ao fórum...

Aqui vai uma dica para pensar e estudar...

Dlookup....ao invés de Dcount.

Silvio, muito obrigado pela dica, consegui resolver o problema da seguinte forma:

Private Sub Form_Load()

If DLookup("[DataRecebimento]", "TabTarefas", "[DataRecebimento]=TxtDataAltera") <> "" Then ' TxtDataAltera recebe-> =Data()

   MsgBox "Existe tarefa agendada para hoje, favor verificar lista em tela.", vbInformation, "TAREFAS"
   Me.Undo

Else

   MsgBox "Ainda não existe tarefa agendada para hoje!", vbInformation, "TAREFAS"
   Me.Undo

End If


End Sub

Abraço!

O fórum agradece o retorno.
Bons estudos.
abraços !