dim ContactXML as MyXML
 
dim contact = from c in ContactXML _
              where c.name = "Hans"
              Select c
 
'Oder so änlich
 
dim ContactXML as MyXSD
 
dim contact = from c in ContactXSD _
              where c.name = "Hans"
              Select c