CR.Reset
    CR.ReportFileName = App.Path & "\Reports\NomeReport.RPT"
    
    CR.DataFiles(0) = PercorsoDb
    CR.DataFiles(1) = PercorsoDb
    CR.SelectionFormula = ""
    Selez = ""
    Selez = "{vst_PianoConti_Dati.IdTitolo}=" & IdTitoloSelezionato
    CR.SelectionFormula = Selez
    
    'configuro i sottoreport dei DATI
    Dim rsCoAn As Recordset
    Set Db = OpenDatabase(PercorsoDb)
    'seleziono dal db l'elenco di codici che corrisponde ainomi dei sottoreport creati
    Set rsCoAn = Db.OpenRecordset("SELECT * FROM tbl_CodificaCoAn WHERE Documento = 'SP' ORDER BY Ordine")
    If rsCoAn.RecordCount > 0 Then
        rsCoAn.MoveLast
        rsCoAn.MoveFirst
        For i = 0 To rsCoAn.RecordCount - 1
            CR.SubreportToChange = rsCoAn.Fields("Codice").Value
            CR.DataFiles(0) = PercorsoDb
            CR.DataFiles(1) = PercorsoDb
            CR.SelectionFormula = ""
            CR.SelectionFormula = Selez & " AND {tbl_TotaliCoAn.IdTitolo}=" & IdTitoloSelezionato & " AND {vst_PianoConti_Dati.CodiceCodificaCoAn}='" & rsCoAn.Fields("Codice").Value & "'"
            rsCoAn.MoveNext
        Next i
    End If
    Set rsCoAn = Nothing
    
    'configuro i sottoreport degli INDICI
    Dim rsIndice As Recordset
    Set Db = OpenDatabase(PercorsoDb)
    Set rsIndice = Db.OpenRecordset("SELECT * FROM tbl_Indici WHERE IdTitolo = " & IdTitoloSelezionato & " ORDER BY Ordine")
    If rsIndice.RecordCount > 0 Then
        rsIndice.MoveLast
        rsIndice.MoveFirst
        For i = 0 To rsIndice.RecordCount - 1
            CR.SubreportToChange = rsIndice.Fields("Codice").Value
            CR.DataFiles(0) = PercorsoDb
            CR.SelectionFormula = ""
            CR.SelectionFormula = "{tbl_Indici.IdTitolo}=" & IdTitoloSelezionato & " AND {tbl_Indici.Codice}='" & rsIndice.Fields("Codice").Value & "'"
            rsIndice.MoveNext
        Next i
    End If
    Set rsIndice = Nothing
    
    If Anteprima = True Then
        CR.Destination = 0
    Else
        CR.Destination = 1
    End If
    
    CR.Action = 1