<?xml version="1.0" encoding="utf-8" ?>
<books>
    <book id="1">
        <name>SQL Server 2005</name>
        <publisher>entwickler.press</publisher>
    </book>
    <book id="2">
        <name>Software testen</name>
        <publisher>mitp</publisher>
    </book>
    <book id="3">
        <name>SQL IT-Tutorial</name>
        <publisher>mitp</publisher>
    </book>
    <book id="4">
        <name>Software Factories</name>
        <publisher>mitp</publisher>
    </book>
</books>

        Dim doc = XDocument.Load("Books.xml")
 
        Dim mitpBook = From book In doc...<book> _
                       Where book.<publisher>.Value = "mitp" _
                       Select book.<name>.Value
 
        For Each book In mitpBook
            Console.WriteLine(book)
        Next

Dim books = From book In doc...<book> _
                    Where CInt(book.@id) < 3 _
                    Select book.<name>.Value

Ralf