if me.[Clearance Date] < me.[loading Date] AND
me.[loading Date] < me.[clearance date] then
dates failed - do whatever
else
dates passed - do whatever
end if
It looks like you dates have a time component, if so use the Date function to clear the time component of the dates.
Sorry...