Mensagem caso tenha data vencida no relatório

Saudações, amigos.

Queria deixar uma mensagem no meu relatório caso alguma das linhas apresente uma data menor que a atual. Criei um rótulo com a mensagem e no campo "No atual" do meu formulário, fiz a seguinte função:

Código:

Private Sub Report_Current()
If Me.Data < Now() Then
    Me.Rótulo.Visible = True
Else
    Me.Rótulo.Visible = False
End If
End Sub

Até que funcionou. Mas se eu corrigir a data do que estava vencido (e logicamente colocar uma data maior que a atual), ao voltar pro relatório o rótulo da mensagem continua lá.

O que estou fazendo de errado, ou qual seria o código correto?

Tente utilizando um campo texto com a expressão abaixo:

=SeImed([CampoData]<Date();"Mensagem";"")

Deixe o campo visível, com linhas e fundo transparente.

Obrigado pela resposta, mas continua não funcionando... Aliás, funciona só na primeira consulta. Se atualizar os dados, a mensagem permanece intacta.

Alguma outra sugestão?

Mas o relatório continua aberto enquanto atualiza? Se for isso, não funciona dessa forma mesmo. Aí tem que atualizar o relatório.

Não, eu fechei o relatório antes de atualizar o formulário. Abrindo o relatório, mesmo ainda apertando o botão de atualizar, continua do mesmo jeito.

Alguma outra forma de resolver?