SELECT [Standards Check record].[Date Checked], [Standards Check record].[VIP PASS 1], [Standards Check record].[VIP Fail date]
FROM [Standards Check record]
WHERE ((([Standards Check record].[VIP Fail date])=IIf([VIP PASS 1]=False,DateAdd("d",90,[Date Checked]),"")));