Ciao, boolean, da quello che ha scritto giaffa non penso che vada bene la tua soluzione.
Prova a riscrivere la query cosi:
codice:
Dim dtDataattuale as date

dtDataattuale = Date

strSQL = "SELECT * FROM last WHERE DateDiff(" & """m"", CDate(DATAISCRIZ), " & dtDataattuale & ") > 12"
Set RS = DBArchivio.OpenRecordset(strSQL)