Dim adapter As New MySqlDataAdapter
    Dim ds As New DataSet
    Dim dt As New DataTable
 
    Private Sub frmPlanung_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' alle gespeicherte Anbieter auslesen
        adapter.SelectCommand = New MySqlCommand("SELECT anbieter_zeichen, id" & _
          "FROM tbl_anbieter ORDER BY id", frmMain.oConn)
        ' DataTabelle definieren
        dt = ds.Tables.Add("tbl_anbieter")
        ' füllen
        adapter.Fill(ds, "tbl_anbieter")
 
        ' combobox die datenquelle zuweisen
        cmbAnbieter.DataSource = dt
        ' angezeigte spalte definieren
        cmbAnbieter.DisplayMember = "anbieter_zeichen"
        ' wertspalte definieren
        cmbAnbieter.ValueMember = "id"
 
    End Sub