Glad it works for you. The kudos goes to Jon K who, without info about your table structure, had to stab in the dark.
CDate() is a function that converts a string to date/time data type.
In the line -
rs.FindFirst "[Date] >= CDate('" & Now & "')"
though Now() returns date/time data type, the...