Dim report As New ReportDocument()
                Dim Credenziali As New TableLogOnInfo
                Credenziali.ConnectionInfo.ServerName = "Localhost"
                Credenziali.ConnectionInfo.DatabaseName = "DB_GA_PROVA"
                Credenziali.ConnectionInfo.UserID = "sa"
                Credenziali.ConnectionInfo.Password = "sisinfo"
                CrystalReportViewer1.LogOnInfo.Add(Credenziali)
                report.Load(Server.MapPath(str_stampa), OpenReportMethod.OpenReportByDefault)
                Dim ItemReport As IEnumerable(Of IStampeIstat) = getsource_Arrivi_Partenze(Albergo.CodAlbergo, CDate(dalgiorno), CDate(algiorno))
                report.SetDataSource(ItemReport)
                report.SetParameterValue("Data1", dalgiorno) : report.SetParameterValue("Data2", algiorno)
                CrystalReportViewer1.ReportSource = report