Que es lo que me falla????

[choroy]

Buenas mi problema es el siguiente:

tengo el siguiente fragmento de codigo


Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\midb.mdb"))

if accion="actualizar" then
fecha= Request.Form("fecha")
contestado= Request.Form("contestado")
sSQL="Update consultas Set contestado='" &contestado& "' Where fecha='" &fecha& "'"
set RS = oConn.Execute(sSQL)
end if

sSql = "SELECT * FROM consultas Order By "&orden&" Desc,nombre"

' Creamos el RecordSet y definimos la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar


' Abrimos la tabla...
RS.Open sSQL, oConn,3,1
'contamos las páginas que se formaron con la variable mostrar.
cant_paginas = RS.PageCount
...
...

y me da el siguiente error: "No coinciden los tipos de datos en la expresión de criterios." en la linea en negrita.

Si hago lo siguiente

sSql = "SELECT * FROM consultas Order By "&orden&" Desc,nombre"
set RS = oConn.Execute

sin crear el recordset si funciona.

¿¿¿Alguien me puede ayudar???

Gracias y un saludo.