little swap out thing for Ant

forant.vb

dim nextLesson = (From l In lessons 
              Where l.Order = currentLesson.Order + 1 
              Select l).FirstOrDefault()

if not nextLesson is nothing then 
Me.NextSong = nextLesson.Id
end if

If (currentLesson.Order > 1) Then
    dim previousLesson = (From l In lessons 
                   Where l.Order = currentLesson.Order - 1 
                   Select l).FirstOrDefault()
   
if not previousLesson is nothing then
me.PreviousSong = previousLesson.Id
end if
End If