aşağıdaki form geçerli olduğunda olayını yazıp dener misiniz

Private Sub Form_Current()

If Me.BitisTrh < Date Then Me.BitisTrh.BackColor = vbRed Else vbWhite

End Sub