codice:
dataoggi=now()
datainizio="mm/dd/aaaa"

diff=datediff("d",dataoggi,datainizio)

select case diff
case >0   'datainizio è passata
...
case <0   'datainzio deve ancora arrivare
...
case else 'sono uguali
...
end select
credo ad occhio una cosa del genere