ComboBox1.DataSource = DataTable
        ComboBox1.DisplayMember = "HT_1"
        ComboBox1.ValueMember = "HT_1"

   Dim dt As New DataTable
   dt.Columns.Add("HT-1", GetType(String))
   dt.Columns.Add("HT-2", GetType(String))
 
   dt.Rows.Add("HT_1_1", "HT_2_1")
   dt.Rows.Add("HT_1_2", "HT_2_2")
   dt.Rows.Add("HT_1_1", "HT_2_2")
 
 
   Dim q1 = From r As DataRow In dt
                 Select r.Field(Of String)("HT-1")
                 Distinct
 
   Dim q2 = From r As DataRow In dt
                 Select r.Field(Of String)("HT-2")
                 Distinct
 
   Dim q1und2 As List(Of String) = 
        Enumerable.Concat(Of String)(q1, q2).ToList
 
   cbo.DataSource = q1und2 'cbo = Combobox (WinForms)

        Dim W As IO.StreamWriter
        Dim i As Integer
        Dim READER As OleDbDataReader
        Dim COMMAND As OleDbCommand
        Dim myConn As New OleDbConnection
        Dim Query As String 
 
        Query = "select * from database.edata"
         myConn.ConnectionString = "WissensdatenbankConnectionString" 
        COMMAND = New OleDbCommand(Query, myConn)
        READER = COMMAND.ExecuteReader
 
        W = New IO.StreamWriter("C:\Desktop\Suche.txt")
 
        For i = 0 To ComboBox1.Items.Count - 1
 
            READER.Read()
            Dim myText = READER.GetString(ComboBox1.Items.Item(i))
            W.WriteLine(myText)
 
        Next
        W.Close()

EALA FREYA FRESENA

        Using oConnection As OleDbConnection = New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pfad_Datenbank & _
          "MeineDatenbank.mdb;")
            Using oAdapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT" & _
            "HT_1, HT_2 FROM MeineTabelle", oConnection)
                Using oTable As DataTable = New DataTable
 
                    oAdapter.Fill(oTable)
 
                    If oTable.Rows.Count > 0 Then
                        For Each oRow As DataRow In oTable.Rows
                            ComboBox1.Items.Add(oRow("HT_1"))
                            ComboBox1.Items.Add(oRow("HT_2"))
                        Next
                    End If
 
                End Using
            End Using
        End Using

Hänk

(Wer früh aufsteht hat mehr vom Tag)