Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xml As XElement = XElement.Load("People.xml")
Dim query = From p In xml.Descendants("person"), s In xml.Descendants("id") _
Where p.Element("id").Value = s.Attribute("id").Value _
Select New With {.FirstName = p.Element("firstname").Value, _
.LastName = p.Element("lastname").Value, _
.Amount = s.Attribute("salar").Value}
For Each record In query
Console.WriteLine("Person: {0} {1}, Salary {2}", record.FirstName, _
record.LastName, _
record.Amount)
Next
End Sub
End Module