[Resolvido]Critério de data

Não sei onde estou errando.A situação é simples.
Uma tabela que contém um campo DATA e um Relatório.

A intenção é : se a data for menor que a data de hoje , formatar a fonte de branco do campo.

Coloquei no 'ao formatar' do relatório , porém sem sucesso.

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim lngBlack As Long, lngWhite As Long
   lngBlack = RGB(0, 0, 0)
   lngWhite = RGB(255, 255, 255)

If Format(Me.dt, "dd/mm/yyyy") < Format(Date, "dd/mm/yyyy") Then
Me.dt.ForeColor = lngWhite
Else
End If
End Sub

Na condicional coloque assim:

Código:

If Me.dt < Date Then

Se dt for uma ciaxa de texto:

Código:

If CDate(Me.dt) < Date Then

Obrigado pela resposta thiagomcosta,

é uma caixa de texto , logo apliquei -> If CDate(Me.dt) < Date com sucesso.

Não tinha conhecimento de CDate, valeu pela informação!