Since this is a calculated field, Date() > Expiration, this should be done in a query.
SELECT FirstField, SecondField, Expiration, Status: GetExpStat([Expiration])
FROM YourTable
Public Function GetExpStat(ExpDate As Date) As String
Select Case DateDiff("d", Date, ExpDate)
Case...