Report dinamico con due quert a campi incrociati parametriche

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize


'prime informazioni
Me.RecordSource = "Settimanaoperaistraordinario"
Dim asd As DAO.QueryDef
Dim cc As DAO.Field
Dim bb As DAO.Recordset
Dim gigi As Integer
Set asd = CurrentDb().QueryDefs("settimanaoperaistraordinario")
asd.Parameters![Maschere!Gestionepersonale!testo7] = Forms!gestionepersonale!Testo7
asd.Parameters![Maschere!Gestionepersonale!testo9] = Forms!gestionepersonale!Testo9
Set bb = asd.OpenRecordset
gigi = 80
For Each cc In bb.Fields
    Me("Etichetta" & Trim(gigi)).Caption = cc.Name
    Me("Etichetta" & Trim(gigi)).Visible = True
    Me("testo" & Trim(gigi)).ControlSource = cc.Name
    Me("testo" & Trim(gigi)).Visible = True
    gigi = gigi + 1
Next
Set asd = Nothing
Set cc = Nothing
Set bb = Nothing

'seconda informazione
Me.RecordSource = "Settimanaoperai"
Dim qdf As DAO.QueryDef
Dim fld As DAO.Field
Dim rst As DAO.Recordset
Dim Conta As Integer
Set qdf = CurrentDb().QueryDefs("settimanaoperai")
qdf.Parameters![Maschere!Gestionepersonale!testo7] = Forms!gestionepersonale!Testo7
qdf.Parameters![Maschere!Gestionepersonale!testo9] = Forms!gestionepersonale!Testo9
Set rst = qdf.OpenRecordset
Conta = 1
For Each fld In rst.Fields
    Me("Etichetta" & Trim(Conta)).Caption = fld.Name
    Me("Etichetta" & Trim(Conta)).Visible = True
    Me("Controllo" & Trim(Conta)).ControlSource = fld.Name
    Me("Controllo" & Trim(Conta)).Visible = True
    Conta = Conta + 1
Next
Set rst = Nothing
Set qdf = Nothing
Set fld = Nothing
End Sub