Microsoft Cursor Engine error "80004005" - ME AYUDA POR FAVOR!

<table width="390" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="390" height="5" colspan="3"></td>
</tr>
<%
If action = "search" Then
Connect.open Cstring

Set rsSearch = Server.CreateObject("ADODB.Recordset")
sqlcom = whereclause
rsSearch.CursorLocation = 3
rsSearch.Open sqlcom, Connect, 3

numresults = rsSearch.RecordCount

If numresults = -1 Then
numresults = 0
End If

i = 1
%>
<tr>
<td height="18" colspan="2" valign="top" background="images/bar.gif"> <div align="center"></div>
<div align="center"><img src="images/searchr.gif" width="110" height="18"></div></td>
</tr>
<tr>
<td width="100%" height="20" valign="top"><strong><font size="2" face="Tahoma">Results: <%=Response.Write(numresults)%> </font></strong></td>
</tr>
<tr>
<td colspan="2" valign="top"> <%
IF Not rsSearch.eof Then
Do Until rsSearch.eof
%><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="bottom">
<td height="25" colspan="2"><font size="2" face="Tahoma"><strong><%=i%>.</strong> <em><a href='product.asp?ID=<%=rsSearch("productID")%>'><%=rsSearch("productName")%></a></em></font></td>
</tr>
<tr>
<td width="10%"> </td>
<td width="90%"><font size="2" face="Tahoma"><%=left(rsSearch("productDesc"), 100)%>...</font></td>
</tr>
<tr>
<td colspan="2"><div align="right"><strong><font color="930025" size="2" face="Tahoma">$<%=rsSearch("productPrice")%></font></strong></div></td>
</tr>
</table>
<%
i = i + 1
rsSearch.MoveNext
Loop%></td>
</tr>
<tr>
<td colspan="2" valign="top"> </td>
</tr>
<%
Else
%>
<tr align="center">
<td colspan="2"><font size="2" face="Tahoma"><br>
Sorry, there are no results for the type you selected at this time. You
can search again or check back soon for updates.<br>
</font></td>
</tr>
<tr align="center">
<td height="40" colspan="2"> </td>
</tr>
<%
End If
%>