Dim q1 = From a In db.OBdatacontexts Select Payor_Name = "", obligorid = Convert.ToInt32(0)
Dim q2 = From a In db.OBdatacontexts Order By a.Payor_Name Ascending Select Payor_Name = a.Payor_Name, obligorid = a.ObligorId
Dim plnQuery = q1.ToList()
plnQuery.AddRange(q2)