Non riesco a capire perché mi dà questo errore relativamente all'istruzione di apertura del recordset (objRS.Open...):

Tipo di errore:
Microsoft JET Database Engine (0x80040E10)
Nessun valore specificato per alcuni parametri necessari.

Ecco il codice :
(la connessione al DB è regolarmente aperta.)

Dim dtoggi, objRS, strSql

dtoggi = Date()

Set objRS = server.createobject("ADODB.Recordset")

strSQL = "SELECT data_di_iscrizione, primo_avviso FROM Anagrafica WHERE ((DateDiff('d', data_di_iscrizione, dtoggi)<30) AND (DateDiff('d', data_di_iscrizione, dtoggi)>7))"

objRS.Open strSQL, objConn, , adLockOptimistic

Dim iRecordCount
iRecordCount = 0

Do While not (objRS.EOF)
iRecordCount =iRecordCount + 1
Loop

--

Ma dove sbaglio?

Grazie in anticipo.