Dim Fecha,SQL Fecha=now() Fecha=FormatDateTime(Actual, 2) SQL="Select * from Tabla where Fecha > #" & Fecha & "#"