Dim dt As New DataTable
 Dim bs As New BindingSource
 
 dt.Columns.Add("Vorname", GetType(String))
 dt.Columns.Add("Zuname", GetType(String))
 
 dt.Rows.Add("Georg", "Müller")
 dt.Rows.Add("Hans", "Meier")
 dt.Rows.Add("Emil", "Schneider")
 
 Dim q = From dr As DataRow In dt.Rows _
 Let TName = dr("Vorname") & " " & dr("Zuname")
 Select Vorname = "Vorname", Zuname = "Zuname", TName
 
 bs.DataSource = q
 DataGridView1.DataSource = bs
 lblName.DataBindings.Add("Text", bs, "TName", True)