Microsoft JET Database Engine error '80040e10' y no se porque

[El_Metallick]

Hola amigos, no se porque me tira este error, les dejo las linas de código:

Código:

<%
'Declarar Variables
Dim Conn
Dim categorias_sql
Dim productos_sql
Dim rs
Dim categoria
Dim id
Dim findefila
Dim contador
'Rescate de valores por URL
categoria = Request.Querystring("cat")
'Instanciar y abrir la conección
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("catalogo.mdb"))
'Creación de la sentencia SQL correspondiente
categorias_sql="Select * From categorias"
'Creación del Recordset
set rs = CreateObject("ADODB.Recordset")
'Apertura del Recordset
rs.Open categorias_Sql, Conn
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" valign="top">
<!-- #Include File="inc/categorias.asp" -->
</td>
<td width="80%" valign="top">
<%
if categoria = "" Then
	 'Creación de la sentecia SQL correspondiente
productos_sql = "Select Top 10 * From productos Order By id_categoria Desc"
 
	 'Apertura del Rescordset
	 rs.Open productos_sql, Conn 
%>

El error es este:
Microsoft JET Database Engineerror '80040e10'
No se han especificado valores para algunos de los parámetros requeridos
/pruebas/catalogo/Access/v1.0/catalogo.asp, line 48

la linea roja es la 48.... y la verdad de las cosas no se porque me tira el error.... eso bueno gracias de antemano y saludos

PD: hay que considerar que es viernes... sigo insitiendo....