Well, I've just given this my best shot, but the debugger doesn't like Date() and insists on removing the brackets??
Also, can I (dare I) question the first bit of your line:
I = Nz(DCount(*","YourQuery","[YourDate] < #" & Date() &"#"),0)
is there really an asterisk in there or should it be...