Raga aiutatemi xchè sto impazzendo. VVoVe:

Questo è il code:
codice:
Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 1, 1
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1
mi dà questo errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Il driver ODBC non supporta le proprietà richieste.

la riga è la seguente:
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 1, 1