Dim Rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim Cred As New TableLogOnInfo

        Rpt.Load(Server.MapPath("CrystalReportLavoriAperti.rpt"), CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)
        Cred.ConnectionInfo.ServerName = "SERVER_NAME"
        Cred.ConnectionInfo.UserID = "UserID"
        Cred.ConnectionInfo.Password = "PasswordUser"
        Cred.ConnectionInfo.DatabaseName = "DbName"

        CrystalReportViewer1.LogOnInfo.Add(Cred)
        CrystalReportViewer1.ReportSource = Rpt