The testing, which at the time I thought was reasonable was a number of variations on
Dim mydate As Date
mydate = DLookup("[Received]", "[All Referrals]", "[ReferralID] = 98")
MsgBox Format(mydate, "dd mmm yyyy")
(ReferralID 98 is shown in 'All Referrals' as 08/07/2012)
Just reading through...