Problemi con la data su db access

[mizar66]

Ciao, so che il db access la data la gestisce informato inglese, anche se noi la possiamo leggere in italiano con molteplici sistemi, però non riesco a richiamare una data di un utente con profilo scaduto interrogando la cella db con il seguente metodo.

<%
varEdit="#"
data = varEdit & Day(Date()) & "/" & Month(Date()) & "/" & Year(Date()) & varEdit
'data = varEdit & Month(Date()) & "/" & Day(Date()) & "/" & Year(Date()) & varEdit
If col_scadenzautente <= data Then
%>
Attenzione: Profilo Utente Scaduto
<%End If%>

questo piccolo script l'ho rigirato in tutti i modi ma non sono riuscito a farlo funzionare correttamente.
In teoria l'applicazione è banale, quando un utente fa il login sul sito lo script deve verificare la data di scadenza e se questa è minore alla data di oggi deve avvisare con il messaggio "Profilo Scaduto".
Grazie a tutti in anticipo per la collaborazioe. Ciao

[optime]

1. fatti stampare sia la variabile col_scadenzautente che la variabile data, così *vedi* i valori
2. a che serve poi varEdit="#"? vedrai che è quello...

[mizar66]

Grazie per la risposta ed i consigli,
Lo script l'ho rimodificato così ma non funziona:
<%
'DATA IN IT
data = Day(Date()) & "/" & Month(Date()) & "/" & Year(Date())
'DATA IN ENG
'data = Month(Date()) & "/" & Day(Date()) & "/" & Year(Date())
If col_scadenzautente <= data Then
%>
Attenzione: Profilo Utente Scaduto[/b]
<%End If%>

a video col_scadenzautente da: 20/03/2011
mentre la data attuale se uso <%= date() %>
mi da la data corretta in italiano 09/04/2011
invece se uso <%= data %> da me modificato per la conversione IT - ENG
mi da 4/9/2011 oppure in IT 9/4/2011 , praticamente mancano gli zeri.
Dove ho sbaglio ?

[optime]

prova a confrontare

CDate(data_da_db) e CDate(data_di_sistema)

[mizar66]

scusa, cosa intenti per CDate(data_di_sistema) ?
dove lo trovo?

[mizar66]

scusa, forse ho capito cosa intenti, il database presente la data così:
col_scadenza 20/03/2011

il sistema se uso date()

restituisce la data nel solito formato 20/03/2011
però sembra non funzionare correttamente.
provo a fare una cosa:

<%
varScadenzautente = rsMain("col_scadenzautente")
If varScadenzautente < date() Then
%>
Profilo scaduto
<%End If%>
così dovrebbe funzionare, mo provo.

[optime]

la data_di_sistema è Date()