Dim Cred As New TableLogOnInfo

        Cred.ConnectionInfo.ServerName = clsFunzioni.cDBServer
        Cred.ConnectionInfo.UserID = clsFunzioni.cDBUser
        Cred.ConnectionInfo.Password = clsFunzioni.cDBPassword
        Cred.ConnectionInfo.DatabaseName = clsFunzioni.cDBName

        CrystalReportSource.Report.FileName = "crpStampaTurno.rpt"

        CrystalReportSource.ReportDocument.SetParameterValue("settimana", Request.QueryString("settimana"))
        CrystalReportSource.ReportDocument.SetParameterValue("datainizio", Request.QueryString("datainizio"))
        CrystalReportSource.ReportDocument.SetParameterValue("datafine", Request.QueryString("datafine"))
        CrystalReportSource.ReportDocument.SetParameterValue("esercizio", Request.QueryString("esercizio"))

        CrystalReportViewer1.LogOnInfo.Add(Cred)