Prolemi con la Select

<!--#include file="ConnDbSQL.asp"-->
<%
Dim IdRec
IdRec = Request.QueryString("IdAnagrafica")
Dim Rec
Set Rec = Server.CreateObject("ADODB.Recordset")
'RICERCA NEL DATABASE
Dim Sql
Sql = "SELECT * FROM Q_Pratiche WHERE IdAnagrafica = IdRec ORDER BY CDate(DataPratica) Desc"
Rec.open Sql, Conn, 1
%>

Mi da il seguente errore....
Tipo di errore:
Microsoft JET Database Engine (0x80040E10)
Nessun valore specificato per alcuni parametri necessari.
/FormAction3.asp, line 30

Premetto che il campo IdAnagrafica è numerico

Grazie in anticipo
:gun:

Grazie lo provato ed è tutto funzionante...
N.B. Uso il campo in formato testo e non data inquanto quando tento di aggiornare un record del database (MS SQL) nel campo di formato data mi risponde di default con 01/01/1900 anche se io in quel campo non gli do nessun valore....
Come mai secondo te...?