Torna al Thread
Dim ds As New Data.DataSet
Dim i As Integer
Dim j As Integer
Dim elemento As String
ds.ReadXml("c:\elenco.xml")
For i = 0 To ds.Tables("ELEMENTO").Rows.Count - 1
j = i + 1
elemento = ds.Tables("ELEMENTO").Rows(i).Item("ID" + j.ToString) + " - " + ds.Tables("ELEMENTO").Rows(i).Item("Categoria" + j.ToString)
ComboBox1.Items.Add(elemento)
Next