Access - comparar fechas con fecha actual

Como podria comparar un campo fecha y si es superior a la fecha actual me cambie el color del texto.
Gracias por adelantado
Un saludo

Prueba esto:

Private Sub boton0_Click()
Texto0.SetFocus
If Texto0.Text > Date Then
Texto0.ForeColor = &HFF&
Else
Texto0.ForeColor = &H0&
End If
End Sub