Cambia l'OGGETTO del 3D è decisamente poco significativo per la comprensione del problema.
Se lavori in maschera continua NON PUOI, puoi eventualmente gestire l'effetto COLORE ma non dell'etichetta, quanto del controllo DataScadenza se UGUALE ad OGGI o superata... di norma si mette in rosso...
Questo è fattibile solo appoggiandosi alla Formattazione Contizionale.
Se lavori su maschera SINGOLA devi agire su EVENTO CURRENT di maschera(se non sei in NewRecord) e, condizionare in quell'evento lo stato dell'etichetta legato alla condizione della data...
Private Sub Form_Current()
If Not Me.NewRecord then Me.Etichetta9.Visible = (Me![DataScadenza]>=Date())
End Sub