Access - sumar dias a fecha

saludos...

tengo el sigiente problema les explico:

deceo buscar las fechas de los documentos a vencer antes de 15 dias para ello se realizo esto:
Vencido = DLookup("IdDucumento", "TDocumen_Pac", "Fecha_Vencimiento =" & "#" & Date + 15 & "#")

funciona sin nigun problema pero si estamos en el mismo mes me explico si el docuemnto se vence el 16/07/2003 y la fecha actual es 01/07/2003. el dloolukp
me funciona pero si la fecha vencimiento es 04/08/2003 y la actual es 21/07/2003 el dlookup no funciona no me trae ningun valor a que se devera esto.

gracias de ante mano saludoss desde venezuela

Usa la funcion DateAdd para hallar la fecha de hoy mas quince dias. Asi :

var dFechaVencimiento As Variant

dFechaVencimiento = DateAdd("d", 15, Date )
Vencido = DLookup("IdDucumento", "TDocumen_Pac", "Fecha_Vencimiento =" & "#" & dFechaVencimiento & "#")

Saludos