Maybe try

If UL < "" Then NumOOS = Application.CountIf(Database, "" & CDate(UL) &
"")


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Bill" wrote in message
link.net...
Hello,
I want to find the number of values in a database greater than a certain
value UL. The following code works in the United States Regional Option:

If UL < "" Then NumOOS = Application.CountIf(Database, "" & UL & "")

But it always gives 0 in, for example, the regional option for Germany.

Any ideas why?

Thanks,

Bill