filtrar fecha de hoy

[potenkin]

me dice lo siguiente:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][Controlador ODBC Microsoft Access]Formato de fecha u hora no válido (null)

el formato es de fecha corta, pero haciendo una consulta el BD veo que en el campo fecha, donde he introducido 10/10/07 hay la siguiente info: Wed Oct 10...
-------

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = Year(hoy) & Month(hoy) & Day(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", 7, 1, Recordset1__MMColParam)
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>