Public Class test
    Inherits System.Windows.Forms.Form
 
    Dim dT As New DataTable
    Dim da As New OleDb.OleDbDataAdapter
    Private Sub test_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'combobox ohne Databinding füllen
        'select command erstellen
        'setzt natürlich eine Tabelle mit entsprechenden Daten voraus!
        Dim com As New OleDb.OleDbCommand("select distinct Name from tblKunde", _
          OleDbConnection1)
        'Exception handling
        Try
            ComboBox1.Items.Clear()
            OleDbConnection1.Open()
            da.SelectCommand = com
            da.Fill(dT)
            Dim dr As DataRow
            For Each dr In dT.Rows
                ComboBox1.Items.Add(dr.Item(0))
            Next
        Catch ex As Exception
            MessageBox.Show("Es ist ein Fehler aufgetreten")
        Finally
            OleDbConnection1.Close()
        End Try
    End Sub
 
 
End Class