For q = 0 To dst2.Tables("Somma").Rows.Count - 1
                    With dst2.Tables("Somma").Rows(q)
                        
                        Imponibile = .Item("SommaDiImponibile")
                        Session("Imponibile") = Session("Imponibile") & .Item("SommaDiImponibile") & chr(13)
                        
                    End With
                Next


cr.DataDefinition.FormulaFields("Imponibile").Text = " ' " & Session("Imponibile") & " ' "              (gli spazi sono inseriti solo per farvi capire)