Comparação data

[Mateustg]

Galera me ajudem...

 

Tenho uma data armazenada no DB Access (lá ele está com formato de data/hora, mas para gravar só a data), quero pegar esta data e comparar se é ou não igual a data atual.

 

Fiz assim:

rscupom("DATA") = ""&date()&""

 

Porém não dá certo, mas se eu fizer assim (comparando a data como texto) ele aceita

rscupom("DATA") = "21/01/2016"

 

Mas preciso comparar sem ser texto, como posso fazer?

[marsites]

utilize #21/01/2016#

ou CDate("21/01/2016")

Dim myDate : myDate = right("00"&day(date()),2) &"/"& right("00"&month(date()),2) &"/"& year(date())
rscupom("DATA") = myDate