Query sulle date

Uno script che permette di effettuare delle query sulle date su database Access:

<% 
Dim sClausolaWhere, SQL 
sClausolaWhere = Day(Date()) & "/" & Month(Date()) 
& "/" & Year(Date()) 
SQL = "SELECT * FROM miaTabella WHERE miaData >= #" & 
sClausolaWhere &"#" 
rs.open , Connessione
%>