Conj de Registros retornar qtd.

<%
Set conecta = Server.CreateObject("ADODB.Connection")
conecta.Open "dsn=dsn_loja"

If Not trim(Request.Form("Palavra")) = "" Then

sql="SELECT id, prod, vl, img FROM prod WHERE prod LIKE '" & Request.Form("Palavra") & "%' OR prod LIKE '%" & Request.Form("Palavra") & "%' order by prod"
set resultado = conecta.execute(sql)
%>
como fazer para essa consulta retornar <%=resultado.RecordCount %> corretamente... ele tá retornando -1..

Vlw!