Dim report As ReportDocument = New ReportDocument



        Try
            report.Load(nomeReport)
            Dim rptConnection As DataSourceConnections = report.DataSourceConnections
            Dim myConnectInfo As IConnectionInfo = rptConnection(0)
            myConnectInfo.SetConnection(cSettings.server_name, cSettings.db_name, cSettings.dbUser, cSettings.dbPassword)
            crViewer.ToolPanelView = CrystalDecisions.Windows.Forms.ToolPanelViewType.None
            Me.crViewer.ReportSource = report
        Catch ex As Exception
            MsgBox("Errore nella stampa del report " & ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation)
        End Try