Private Sub Anteprima_Software()
        Dim daT1, daT2 As MySqlDataAdapter
        Dim dtsReport As DataSet
        Dim strSQL As String
        Try
            strSQL = "Select software_licenza.Nr_Progres,Software.Programma,Software.Versione,Software.Tipo_Licenza,software_licenza.Chiave,software_licenza.Data_Licenza,software_licenza.Nr_Licenze_Totali,software_licenza.Nr_Licenza, " & _
                     "software_licenza.Licenza_Uso, software_licenza.Nominativo,software_licenza.Ubicazione,software_licenza.Nr_Apparato From software Inner Join software_licenza On sgri.software.ID = sgri.software_licenza.ID_Software Order By software_licenza.Nr_Progres"
            daT1 = New MySqlDataAdapter(strSQL, ConnMySQL)
            dtsReport = New DataSet
            daT1.Fill(dtsReport, "Registro_Software")
           strSQL = "SELECT * FROM timbri "
            daT2 = New MySqlDataAdapter(strSQL, ConnMySQL)
            daT2.Fill(dtsReport, "Timbri")
            Dim rpt As New rptRegistro_Software
            rpt.SetDataSource(dtsReport)
            Dim CRView As New Report
            CRView.CRViewer.ReportSource = rpt
            'Creo la cartella
            System.IO.Directory.CreateDirectory(AppDomain.CurrentDomain.BaseDirectory + "\Report\Registro_Software\")
            'Esporto il report in PDF
            rpt.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, AppDomain.CurrentDomain.BaseDirectory + "\Report\Registro_Software\" & Mese(Month(DateTimePicker1.Value)) & "  " & Year(DateTimePicker1.Value) & ".pdf")
            Dim proc As New Process
            'Apro il mio file
            Process.Start(AppDomain.CurrentDomain.BaseDirectory + "\Report\Registro_Software\" & Mese(Month(DateTimePicker1.Value)) & "  " & Year(DateTimePicker1.Value) & ".pdf")
            'Chiudo ed elimino il processo'
            proc.Close()
            proc.Dispose()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub