Hola es algo facil hay una pequeña funcion llamada : DateDiff
Descripción
Devuelve el número de intervalos entre dos fechas.
Sintaxis
DateDiff(intervalo, fecha1, fecha2 [,primerdíasemana[, primerasemanaaño]])
Valores
El argumento intervalo puede tener los siguientes valores:
Valor Descripción
yyyy Año
q Trimestre
m Mes
y Día del año
d Día
w Día de la semana
ww Semana del año
h Hora
n Minuto
s Segundos
laFecha = DateValue("1/1/2003") (en este caso la fecha de tu base de datos DateValue es una funcion ke te combierte una cadena a una fecha valida ..... otro tema :P)
DiferenciaEntreFechas = "Días desde hoy: " & DateDiff("d", Now, laFecha)