Namespace Global.System.Collections.Generic
 
  <Serializable>
  Public Class BindList(Of T As {Class, New})
    Inherits List(Of T)
    Implements IBindingList
 
    Public Sub New()
      MyBase.New()
    End Sub
 
    Public Sub New(en As IEnumerable(Of T))
      MyBase.New(en)
    End Sub
 
    '...
 
  End Class
 
End Namespace

<Extension, EditorBrowsable>
Public Function ToBindList(Of T As {Class, New})(en As IEnumerable(Of T)) As _
  BindList(Of T)
  Return New BindList(Of T)(en)
End Function

Dim Q = From g In Liste
        Where g.Datum.HasValue AndAlso g.Datum.Value.Date < Date.Today)
        Order By g.Entfernung, g.Name
 
Me.InfoBindingSource.DataSource = Q.ToBindList