Dim q = From dr As DataRow In dt.Rows _
        Select Vorname = dr("Vorname"), Zuname = dr("Zuname"), TName = dr( _
        "Vorname") & " " & dr("Zuname")

        Dim q = From dr As DataRow In dt.Rows _
        Let Vorname = dr.Field(Of String)("Vorname"),
        Zuname = dr.Field(Of String)("Zuname")
        Select Vorname, Zuname, TName = Vorname & " " & Zuname

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist