Access - AYUDA CON CONSULTA

Hola

NECESITO AYUDA URGENTE ESTOY DESESPERADO.

tengo la siguiente consulta llamada ConsultasCitasDias:

SELECT Cita.Fecha_Cita, Cita.Hora_Cita, Cita.Nombre_Doctor, Cita.Nombre_Paciente, Cita.Nombre_Disciplina
FROM Cita
WHERE (((Cita.Fecha_Cita)=[Forms]![Cita_Nueva]![Calendario].[Value]))
ORDER BY Cita.Hora_Cita, Cita.Nombre_Doctor;

En un procedimiento necesito recorrer esta consulta y el codigo que tengo es el siguiente:

Dim miBDAux As Database
Dim miRSAux As Recordset
Set miBDAux = DBEngine.Workspaces(0).Databases(0)
Set miRSAux = miBDAux.OpenRecordset("ConsultasCitasDias")

miRSAux.MoveFirst
Do Until (miRSAux.EOF)
.....

el problema es que me da un error "TOO FEW PARAMETERS: EXPECTED 1"

He probado tambien con el siguiente codigo:

Dim miBDAux As Database
Dim qd As QueryDef
Dim miRSAux As Recordset
Set miBDAux = DBEngine.Workspaces(0).Databases(0)
Set qd = miBDAux.QueryDefs("ConsultasCitasDias")
qd.Parameters("auxiliar") = Me.Calendario.Value
Set miRSAux = qd.OpenRecordset

miRSAux.MoveFirst
Do Until (miRSAux.EOF)
.....

y el problema me da es un error "ITEM NO FOUND IN THIS COLLECTION"

No puedes utilizar un open recordset sobre una consulta que solicita un parametro como este WHERE (((Cita.Fecha_Cita)=[Forms]![Cita_Nueva]![Calendario].[Value]))
Hay varias opciones para solucionar esto:
1.-crear consulta de creacion de tabla y luego utilizarla en el procedimiento

2.- Utilizar SQL en el procedimiento por ejemplo
Set GesperDB = CurrentDb
strSQL = "SELECT * FROM [" & Empresa & " GPFIC04] WHERE [GP04FECH] = '" & MESANNO & "'"
Set NOMINAS = GesperDB.OpenRecordset(strSQL)

3.- Crear la consulta sin clausula WHERE y pasarle la fecha al procedimiento y la coparas con cada registro que leas

Espero te oriente algo.... saludos desde Cádiz