Tutto risolto psto il codice se può servire a qualcuno
Dim ds2 As New Data.DataSet
ds2.ReadXml("c:\sottocategorie.xml")
Dim view As DataView = New DataView
With view
.Table = ds2.Tables("ELEMENTO")
.RowFilter = "CATID = '" & ComboBox1.SelectedValue.ToString & "'"
End With
ComboBox2.DataSource = view
ComboBox2.ValueMember = "ID"
ComboBox2.DisplayMember = "Categoria"
End Sub