Dim mycn As New clsConnection.CLS_Connection
            mycn.LeggiCn()

            Dim myreport As ReportDocument
            myreport = New ReportDocument
            Dim reportPath = Application.StartupPath & "\Rpt\" & NomeReport
            myreport.Load(reportPath)
            Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
            myConnectionInfo.DatabaseName = mycn.dbName
            myConnectionInfo.UserID = mycn.UID
            myConnectionInfo.Password = mycn.Pwd
            myConnectionInfo.ServerName = mycn.srvName
            SetDBLogonForReport(myConnectionInfo, myreport)

            SetDBLogonForSubreports(myConnectionInfo, myreport)

            frm_DisplayReport.CrystalReportViewer1.ReportSource = myreport
            '--> Passo i parametri
            Dim pFields As New ParameterFields()
            Dim pField As New ParameterField()
            Dim disVal As New ParameterDiscreteValue()
            pField.ParameterFieldName = "Utente"
            disVal.Value = mycn.Utentecorr     '<--- Valorizzo il parametro
            pField.CurrentValues.Add(disVal)


            frm_DisplayReport.CrystalReportViewer1.SelectionFormula = "({DO02_Testadoc.DO02_NumReg_FR99} =" & intNumRegDoc & ")"
            frm_DisplayReport.Text = TitoloFinestra
            frm_DisplayReport.Show()