filtrar fecha de hoy

[potenkin]

me da error
ADODB.Command error '800a0d5d'

con el siguiente codigo


<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = Month(Hoy) & "-" & day(hoy) & "-" & Year(hoy)
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_neoparc_STRING
Recordset1_cmd.CommandText = "SELECT * FROM menu WHERE fecha = ?"
Recordset1_cmd.Prepared = true

Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, -1, "#" & Recordset1__MMColParam & "#") ' en esta linea da error
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>