Mostrar mensagem no label conforme a data e hora atual - Módulo

Bom dia pessoal,

Guardo em uma tabela registro de mensagem, onde atualizo esta mensagem conforme a necessidade.
Preciso mostrar esta mensagem em um label no formulário FrmMenu.
No FrmCadastraMsg tenho o seguinte:

Mensagem: xxxxx xxxxxx xxxxx

'Data e Hora para ser mostrada no label
Data Corrente: 04/07/2022
Hora: 13:00
'Se estiver ativado
Status [x] Ativado

Criei um Módulo:

Function Carregar_Msg()
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("tblMensagem")

rs.FindFirst "Format([msgData],'dd/mm/yyyy') = Format(Date(),'dd/mm/yyyy') And [msgHoras] = Time() And [msgStatus] = True"

Forms![FrmMenu].lblMensagem.Caption = rs!msgDescricao

rs.Close
Set rs = Nothing

End Function

Chamo essa função no Timer
Call Carregar_Msg

O que acontece:
Está mostrando de imediato ao abrir o formulário

"Preciso que mostre na data corrente e no horário corrente"

Olá,
Substitua o Date() por Now. Segue exemplo:

Format(Now,"dd/mm/yyyy") & " - "& Format(now,"hhss")

Resultado: 04/07/2022 - 10:35:48


É isso

Att,
FIM

Alexandre, o detalhe é que no abrir do formulário, já apresenta a mensagem.
Gostaria que mostrasse assim que conferir o mesmo horário da coluna "msgHoras" da tabela.

Atualizando aqui:
Data Corrente: 04/07/2022 (Data do evento)
Hora: 13:00 (Hora do evento)

Verificar no banco de dados e executar a data do evento e a hora do evento.
Na data e horário definido, mostra na tela do formulário.