cancella record in base a data

[Renyp]

Ciao a tutti, dopo aver letto vari 3d sull'argomento continuo a dover risolvere il mio problema: devo eliminare gli annunci che hanno più di un mese. Penso sia dovuto al tipo di campo - testo - con cui gestisco le date su db access.

La data viene inserita così:

data = date() 

Mentre, per cancellare i record, ho inserito uno script all'inizio della pagina annunci:

dim tempo, sqlCancellaAnnunci
tempo = DateAdd("d",-30,Date())
sqlCancellaAnnunci = "Delete * from Privati where data < #"tempo"#"
conn.execute(sqlCancellaAnnunci) 

Niente, non funge..cosa sbaglio?