Replace this:
If chkShowCurrent.IsChecked = True Then
Dim OnlyCurrent = From job In xDoc.Root.Descendants("Job")
Where job.Element("Status").Value = "a-current"
Order By job.Element("Status").Value, job.Element("Rush").Value, Convert.ToDateTime(job.Element("DateOut").Value)
Select job
lstJobs.ItemsSource = OnlyCurrent
End If
with:
If chkShowCurrent.IsChecked Then
Dim OnlyCurrent = (From job In xDoc.Root.Descendants("Job")
Where job.Element("Status").Value = "a-current"
Order By job.Element("Status").Value, job.Element("Rush").Value, Convert.ToDateTime(job.Element("DateOut").Value)
Select job).ToList()
lstJobs.ItemsSource = OnlyCurrent
End If
It should resolve your issue. If not, please notify me ;)