Thank you for your advice, I definately should be using Date() rather than now()... I have made the amendments suggested but it is giving me an error on the line
lsSQL = lsSQL & " Where ContractRenewal <= DateAdd("d",90,Date()) "
I will try and work out why that may be but if you have...