con una query?
codice:
Dim sClausolaWhere, SQL 

sClausolaWhere = (Date() - 15) 

SQL = "SELECT * FROM miaTabella WHERE miaData <= #" & sClausolaWhere &"#"  Order by ID Asc"
rs.open SQL, Connessione, 3, 3