Non capisco dove sia l'errore...:

<%
cerca = request.form("textfield")
arrCerca = split(cerca," ")


Dim conn1
Dim rs1
Dim sSql1

'Imposto la connessione
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/post.mdb")

'Imposto la stringa SQL di selezione dati


sSql1 ="SELECT * from tabpost WHERE "
for i=0 to ubound(arrcerca)

sSql1 = sSql1 & "parolachiave LIKE '%"& arrCerca(i) &"%'"
if not i=ubound(arrcerca) then
sSql1 = sSql1 & " and "
end if

next


'Creo e apro il Set di Record
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sSql1, conn1, 3, 3
%>
.
.
.

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/dd/cerca.asp, line 158