Access - clasula where de Openreport con campo de consulta

Estoy intentando abrir un informe con un openreport en el que el nombrefiltro es una consulta y quiero añadirle la where comparando un campo de esta consulta con la fecha del dia (date) .
El problema es que no consigo dar con la sintasis para informar en la where que es un nombre de campo de consulta . El codigo esta en un modulo aparte.

Hola, yo utilizo este codigo para imprimir una ficha de personal, y como verás es una secuencia sql que podrias aplicar a tu caso.
Saludos
IMPRIMIR UNA FICHA
Private Sub Imprimir_Ficha_Click()

On Error GoTo Err_Imprimir_Ficha_Click

Dim stDocName As String
Dim stWhere As String

stDocName = ""
stWhere = ""

stDocName = "Ficha datos personales del Socio"
' stWhere = "GP01NMAT = '" & Me![GP01NMAT] & "'" SI GP01NMAT FUERA CARACTER
stWhere = "GP01NMAT = " & Me![GP01NMAT] ' cuando el campo es numerico

If Not IsNull(stDocName) And stDocName <> "" Then
DoCmd.OpenReport stDocName, acPreview, , stWhere
End If

Exit_Imprimir_Ficha_Click:
Exit Sub

Err_Imprimir_Ficha_Click:
MsgBox Err.Description
Resume Exit_Imprimir_Ficha_Click

End Sub

Lo he probado pero en tu codigo parece que comparas un campo de formulario.
Yo lo que quiero es ejecutar un informe que está hecho a partir de una consulta y filtrar esa consulta comparando uno de sus campos.
stDocName = "CONSULTA RECHAZADAS"
stWhere = aqui me gustaria decir que la fecha del dia debe ser igual a un campo de la consulta.

DoCmd.OpenReport "LISTADO OPERACIONES RECHAZADAS", acViewPreview, stDocName, stWhere

Gracias de todas maneras
Un saludo