Dim dataAdapter = New SqlClient.SqlDataAdapter("SELECT * FROM " & ComboBox1.Text & " where Cognome ='" & ComboBox3.Text.Replace("'", "''") & "' And Reparto ='" & ComboBox4.Text.Replace("'", "''") & "'", cn)
        Dim commandBuilder = New SqlClient.SqlCommandBuilder(dataAdapter)
        Dim DataSet = New Data.DataSet
        dataAdapter.Fill(DataSet)
        ' DataGridView1.DataSource = DataSet.Tables(0)
        DataSet.WriteXml(Application.StartupPath + "\Reportistica\" & ComboBox1.Text & "\" & ComboBox1.Text & ".xml", XmlWriteMode.WriteSchema)