The XML document you've loaded has a default namespace of
http://www.w3.org/2005/Atom
- you need to include that namespace in the element names:
Dim atom As XNamespace = "http://www.w3.org/2005/Atom"
Dim BookingDatabase As XDocument = XDocument.Load("https://itunes.apple.com/us/rss/topsongs/limit=10/xml")
Dim feeds = From feed In BookingDatabase.Descendants(atom + "entry")
Select mytitle = feed.Element(atom + "title").Value,
myrights = feed.Element(atom + "rights").Value