Devo far visualizzare i 4 prodotti meno cari di un mio database...

uso il seguente codice

<%
Dim nCount
Dim mySQL
connn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("mdb-database/miodb.mdb") & ";PWD"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connn
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT TOP 4 * FROM tabella ORDER BY Importo ASC", conn, 2,3
do UNTIL RS.eof
a = RS("importo").value
response.write(a + "<br>")
RS.movenext
loop
%>

Ho provato anche ad usare conn.Excute(mySQL)
Ho provato ad usare il While anzichè il do

mi da sempre questo errore:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
/eci/default.asp, line 8

come posso fare ?

Premetto che a me serve visualizzare i primi 4 prodotti meno cari di un db