Private bs As BindingSource

           bs = New BindingSource(ds, "Users.Username")
           cboUsername.DataSource = bs
           cboUsername.ValueMember = "ID"

        bs.EndEdit()
        Try
            da.Update(ds, "Users")
 
            MessageBox.Show("Datensatz geändert!", "Update", _
                MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
               MessageBoxIcon.Exclamation)
        End Try

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist