Using the Xml name space in the query
Imports System Imports System.Reflection Imports System.Xml Module Module1 Sub Main() Dim xml As XElement = XElement.Load("XLINQ.xml") Dim o As XNamespace = "urn:schemas-microsoft-com:office:office" Dim query = From w In xml.Descendants(o + "Author") _ Select w For Each record In query Console.WriteLine("Author: {0}", record.Value) Next End Sub End Module