Quote Originariamente inviato da angelo_dima
Set rs = db.OpenRecordset(SQLSTR, 2)
In questo caso SQLSTR è una variabile e la dichiari nuda e cruda.

Quote Originariamente inviato da angelo_dima
Set rs = db.OpenRecordset(nomequery, 2)
In questo caso stai chiamando il nome proprio della query, ma occorre mettere i doppi apici così:
Set rs = db.OpenRecordset("nomequery", 2)