Function VisualizzaReport()

        'Gestione pulsante visualizza dalla pagina del report

        'Svuoto la tabella
        Report.Dset1.CollaudoVirtualTable.Clear()

        'Riempio la tabella virtuale riempendola con tutti i dati simulando un campionamento di 1/10sec
        'In questo modo ho tutti i dati con la stessa unità di misura

        Report.Show()

        Try
            myReport.SetDataSource(Report.Dset1)

            Report.CrystalReportViewer1.ReportSource = myReport

            'Imposto il valore di zoom
            Report.CrystalReportViewer1.Zoom(75)
        Catch ex As OleDb.OleDbException
            'MessageBox 
            Title = "ATTENZIONE"
            'Msg = "Impossibile trovare la tabella '" & NomeTabella & "' nel database '" & AppPercorsoDB & "'"
            Style = vbOKOnly + vbCritical + vbDefaultButton1
            Response = MsgBox(Msg, Style, Title)
            Exit Function
        End Try
    End Function