Error Microsoft JET Database Engine error '80040e14

[Libras]

viendo el codigo:

Código SQL:

SELECT * FROM completo WHERE es = '" & defecto & "' AND marca = '" & request.form("marca") & "' AND ("
 

ESTA CONDICION PONE EL AND QUE FALTA PERO SOLO SI i>0 EN CASO CONTRARIO NO PONE EL AND

Código vb:

if i > 0 then
sql = sql & " and "
end if
sql = sql & "copete LIKE '%" & arr(i) & "%' "
sql = sql & "modelo LIKE '%" & arr(i) & "%' "
next