[marcoszorrilla]

Código Delphi [-]
 Var
 dHoy:TDate;
 Begin
 dHoy:=Date;
 
 Select *
 From MiTabla
 Where Vencimiento > dhoy -6  And Vencimiento <= dhoy
 ...

Más o menos esta es la idea.

Un Saludo.