With crConnectionInfo
            .DatabaseName = "calCond"
            .ServerName = varPub.LeggiServer
            .IntegratedSecurity = True
        End With


        'ciclo per ogni tabella del report ed associo ad ognuna di esse la connectioninfo ed il logoninfo
        crTables = varPub.crReportDocument.Database.Tables
        For Each crTable In crTables
            crTableLogOnInfo = New CrystalDecisions.Shared.TableLogOnInfo
            crTableLogOnInfo = crTable.LogOnInfo
            crTableLogOnInfo.ConnectionInfo = crConnectionInfo
            crTable.ApplyLogOnInfo(crTableLogOnInfo)
        Next

        myCrystalReportViewer.ReportSource = varPub.crReportDocument