Uff... e così?
codice:
DataOggi = CDate(Replace(CStr(Date()), ".", "/"))
Sql = "SELECT * FROM Feste WHERE DataFesta >= #" & DataOggi & "# ORDER BY DataFesta"