Como pasar parámetro de un combobox para abrir informe

Hola experto, Tengo un problema con un combobox espero que me puedas ayudar. Te explico:
Tengo un formulario de Reportes y en un combobox la lista de reportes a previsualizar o imprimir, en una de estas opciones del combobox, abre otro formulario y en este formulario tengo otro combobox con un listado de opciones (Juzgado primero, Juzgado Segundo...) con este combobox quiero pasar la opción elegida como parámetro y me agrupe los registros según el tipo de Juzgado. Para esto cree una consulta con los siguientes campos:
Id, nombre, expediente, juzgado, en el campo juzgado puse la condición [Formularios]![Juzgados]![cboJuzgados], funciona bien si la abro dando click en la consulta, me depliega una ventana pidiéndome el parámetro y me miestra los datos TODO BIEN. Con esta consulta diseñe un informe. Y al abrirlo también me pregunta el parámetro y me muestra los datos filtrados, el problema esta que cuando selecciono del combobox la opción deseada y dando click en el botón vista previa, abre el reporte pero VACÍO no me muestra ningún dato, donde esta el error, por favor ayuda!
El código del botón VistaPrevia:
Public Function VistaPrevia()
Dim stDocName$
stDocName = "PorJuzgado"
On Error GoTo ErrorHandler
DoCmd.OpenReport stDocName, acPreview
Done:
Exit Function
ErrorHandler:
MsgBox Err.Description
Resume Done
End Function
Un Saludo, espero tu Ayuda.