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