Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim ds2 As New Data.DataSet
        ds2.ReadXml("c:\sottocategorie.xml")

        Dim view As DataView = New DataView
        With view
            .Table = ds2.Tables("ELEMENTO")
            .AllowDelete = True
            .AllowEdit = True
            .AllowNew = True
            .RowFilter = "CATID = 'ComboBox1.ValueMember'"
            .RowStateFilter = DataViewRowState.ModifiedCurrent
            .Sort = "Categoria DESC"
        End With

        ComboBox2.DataSource = view
        ComboBox2.ValueMember = "ID"
        ComboBox2.DisplayMember = "Categoria"

    End Sub