No se como grabas la fecha en tu base de datos pero tal y como tienes definido el CreateParameter es para una fecha timestamp. Para una fecha normal y corriente usa 7 o 133 (
mas info)
Recordset1__MMColParam = Year(hoy) & Month(hoy) & Day(hoy)
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 133, 1, -1, Recordset1__MMColParam)
o
Recordset1__MMColParam = hoy
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 7, , , Recordset1__MMColParam)
Usar Command requiere cierta parametrización previa. Para casos como este donde no esperas datos desde fuera (o sea, no viene de un formulario, ni de un querystring) yo usaria un simple recordset
set rs = conn.execute("SELECT * FROM menu WHERE fecha = #" & hoy & "#")
Un saludo