Imports System
Imports System.Data.DLinq
Imports System.Expressions
Imports System.Query
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xdoc As XDocument = XDocument.Load("data.xml")
Dim query = From people In xdoc.Descendants("PERSON") Select people.Value
Console.WriteLine("{0} Players Found", query.Count())
For Each item In query
Console.WriteLine(item)
Next
End Sub
End Module