[Resolvido]relatório de referencia cruzada

Boa noite amigo eu consigo filtrar a  consulta de referencia cruzada já o relatório não, ja tem tendei de varias maneiras, alguém tem um solução para esse programa como criar esse relatório

estou usando esse contigo no abri do relatório:
Private Sub Report_Open(Cancel As Integer)
' Create underlying recordset for report using criteria entered in
' frmTeste form.

Dim intX As Integer
Dim qdf As QueryDef
Dim frm As Form

' Set database variable to current database.
Set dbsReport = CurrentDb
Set frm = Forms!fil_esp
' Open QueryDef object.
Set qdf = dbsReport.QueryDefs("r_espelho ")
' Set parameters for query based on values entered
' in frmTeste form.
qdf.Parameters("Forms!fil_esp!data_in") _
= frm!data_in
qdf.Parameters("Forms!fil_esp!data_fim") _
= frm!data_fim
' Open Recordset object.
Set rstReport = qdf.OpenRecordset()

' Set a variable to hold number of columns in crosstab query.
intColumnCount = rstReport.Fields.Count
End Sub

mas esta danado erro :Item não encontrado nesta coleção erro 3265

Veja se o ajuda;

https://www.maximoaccess.com/t95-form-filtra-consulta-de-referencia-cruzada

https://www.maximoaccess.com/t215-relatorio-referencia-cruzada

resolvido