DataOggi = cDate(Date())
##########inutile, date() restituisce una data bella e pronta.
Dataoggi = cDate(DateAdd("d",-1,DataOggi))

##########così visualizzi la data di ieri funziona anche con date()-1...e tutto senza cdate.

DataBase = cDate(DateAdd("d",nGiorni,DataOggi))
##########a parte che non ho capito a che ti servono tutte ste variabili (a meno che non sei intenzionato a cambiarle)...ma cosa ti serve???