After reading that current dates in VB are Now, Date, and Time i tried as you suggested.
=DCount("[Request Type]","Sheet1","[Request Type] = 'New Business'" & "' AND [Date Received] < #" & Date() & "#")
But this gives a #Error? error, guessing that its returning thr wrong value, not the...