Private Sub MitarbeiterRefresh()
  Dim mysqlConn As New MySqlConnection(Login.strLoginData)
  mysqlConn.Open()
  Dim com As New MySqlCommand("SELECT name FROM user WHERE frei='true' ORDER BY" & _
    "name", mysqlConn)
  Dim dr As MySqlDataReader = com.ExecuteReader()
  lbMitarbeiter.Items.Clear()
  While dr.Read()
    lbMitarbeiter.Items.Add(dr!name)
  End While
  dr.Close()
  mysqlConn.Close()
End Sub

Private Sub MitarbeiterRefresh()
  Dim comUser As New MySqlCommand("SELECT name, id FROM user WHERE frei='true'" & _
    "ORDER BY name", mysqlConn)
  Dim da As New MySqlDataAdapter(comUser)
  Dim ds As New DataSet()
  da.Fill(ds, "tabelle1")
  Dim dt As DataTable = ds.Tables("tabelle1")
  With cbNamen
    .DataSource = dt
    .DisplayMember = "name"
    .ValueMember = "id"
  End With
End Sub