cmd.CommandText = "SELECT Personalnummer, Nachname, Vorname FROM Person"

With cbSchweierAuswahl
   .DisplayMember = "Personalnummer"
   .DataSource = Me.xxxDataSet1.Person 
End With
 
NachnameTextBox.DataBindings.Add("Text", Me.xxxDataSet1.Person, "Nachname")  
VornameTextBox.DataBindings.Add("Text", Me.xxxDataSet1.Person, "Vorname")

________
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