Dim daT1 As MySqlDataAdapter
        Dim dtsSchedaAnagrafica As New dtsSchedaAnagrafica
        Dim strSQL As String
        Dim Connection As New MySqlConnection(ConfigurationManager.ConnectionStrings("constr").ConnectionString)
        strSQL = "anagrafica.ID,anagrafica.CodiceFiscale,categoria.Descrizione As Categoria,gradi.Descrizione As Grado," & _
                 "anagrafica.Cognome,anagrafica.Nome,anagrafica.LuogoNascita,anagrafica.ProvinciaNascita,anagrafica.DataNascita," & _
                 "anagrafica.Indirizzo,anagrafica.Comune,anagrafica.ProvinciaResidenza,anagrafica.Cap" & _
                 " From anagrafica Inner Join categoria On categoria.IDCategoria = anagrafica.IDCategoria Inner Join" & _
                 " gradi On gradi.IDGrado = anagrafica.IDGrado Where anagrafica.ID = " & ID
                daT1 = New MySqlDataAdapter(strSQL, Connection)
        daT1.Fill(dtsSchedaAnagrafica, "Scheda")
        Dim rpt As New rptSchedaAnagrafica
        rpt.SetDataSource(dtsSchedaAnagrafica)
        Dim CRView As New Report
        Report.CRViewer.ReportSource = rpt
        Report.CRViewer.RefreshReport()
        Report.ShowDialog()