devo verificare 2 date in vb

[amodio]

ma devo dare un errore se la data immessa è now +1

ho fatto :

If Trim(TXT_Data.Text) >= CDate(Trim(Day(Now)) + 1 & "/" & Trim(Month(Now)) & "/" & Trim(Year(Now))) Then ' _
'

MsgBox "Attenzione data non valida", vbCritical, App.Title

mi da sempre errre
se txt_data = 14/12/2002 invece non dovrebbe darmi errore

dovrebber anche verificare che CDate(Trim(TXT_Data)) <= CDate("8/6/1999") Then mgbox .....

[serena]

e se definisci due variabili data?

'-------------------------------
dim data1 as date
dim now1 as date

data1 = text_data.text

'aggiunge un giorno a now
now1= dateadd("d",now)

if data1 >= now or data1 < #08/06/199# then msgbox "errore!!"
'--------------------------------------

[amodio]

ho trovato
grazie
è che non ho cambiato in cdate la data cosi me lo prendeva come stringa