Dim res As IEnumerable(Of patient_linq) = (From patienten In ds.Tables( _
  "Patienten").AsEnumerable() _
                   Order By patienten.Field(Of String)("Vorname"), _
                   patienten.Field(Of String)("Nachname") _
                   Select New patient_linq With _
                   {.patient_id = patienten.Field(Of Integer)("Patient_id"), _
                   .patient_name = patienten.Field(Of String)("Vorname") & _
                   Space(1) & patienten.Field(Of String)("Nachname"), _
                   .geburtsdatum = patienten.Field(Of Date)("Geburtsdatum"), _
                   .beihilfesatz = patienten.Field(Of Integer)( _
                   "Beihilfesatz")}).ToList