è logico hai fatto 2 if

nel caso che una sia + vecchia di 15 è implicito che sia + vecchia di 7


basta un

if ....date + 7


else if ....date + 15

end if

p.s cmq è un costrutto strano avrei usato
if DateDiff("d",date,Rs(Datadb)) >= 7 then