bueno, por fin lo hice andar, encontre la solucion con un amigo, dejo el codigo que explica bien como lo hicimos
fecha=DateAdd("d",-7,date)
dia=day(fecha)
mes=month(fecha)
anio=year(fecha)
vSQL="SELECT * FROM certificados where Fechacaducidad > #" & anio & "/" & mes & "/" & anio
saludos
espero que sirva
