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)