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)
            ComboBox1.ValueMember = ds.Tables("ELEMENTO").Rows(i).Item("ID" + j.ToString)
        Next