report.Load("scheda.rpt")
        ' report.DataDefinition.FormulaFields.Item("firma").Text = "'" & Datadistampa.DateTimePicker1.Value & "'"
        tabella = New DataSet
        tabella.ReadXml(Application.StartupPath + "\Reportistica\scheda\anagrafe.xml")
        report.Database.Tables(0).SetDataSource(tabella)

        tabella1 = New DataSet
        tabella1.ReadXml(Application.StartupPath + "\Reportistica\scheda\esposizione.xml")
        report.OpenSubreport("scheda2.rpt").SetDataSource(tabella1)


        CrystalReportViewer1.ReportSource = report