Grazier Pictor, ma mi spieghi cosa hai scritto? cmq il risultato è:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Funzione 'getdate' non definita nell'espressione.


Ho provato anche a fare questa modifica

codice:
query = "SELECT * FROM tbl_sostanze WHERE datediff(m, data, " & date() & " ) <=6"
Il risultato è

Parametri insufficienti. Previsto 1.

la query stampata a video è

SELECT * FROM tbl_sostanze WHERE datediff(m, data, 06/02/2008 ) <=6

Ho provato anche con la parentesi quadra su data.