'Die Datenquelle
   Dim dt As New DataTable
 
   'einige Testdaten
   dt.Columns.Add("ID", GetType(Integer))
   dt.Columns.Add("Select")
 
   For i As Integer = 0 To 9
       dt.Rows.Add(i, "IT_" & i.ToString)
   Next i
 
 
   'Abfrage einer Quellspalte als Liste
   Dim lst As List(Of String) = _
      (From obj As Object In dt.Rows _
      Select CType(obj, DataRow).Field(Of String)("Select")).ToList
 
   'Item in Liste einfügen
   lst.Insert(0, "[keine Auswahl]")
 
   'Bindung der Liste an die Combobox ('cbo')
   cbo.DataSource = lst