questa volta non va proprio bene.

Sql = "select messaggio from appuntamenti_2 where ((mese >= " & chr(34) & DatePart("m",date()) & chr(34) & ") and (anno= " & chr(34) & DatePart("yyyy",date()) & chr(34) & ")) or (anno > " & chr(34) & DatePart("yyyy",date()) & chr(34) &")"

Rs.Open Sql, conn

Se me la query me l faccio scrivere viene così:
select messaggio from appuntamenti_2 where ((mese >= "1") and (anno= "2008")) or (anno > "2008")

e l'errore è Too few parameters. Expected 2 -- nonstante io stesso ho provato la query con access e li funziona senza problemi.