Private Sub Form_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
cmd.CommandText = "SELECT Personalnummer, Nachname, Vorname FROM Person"
        With cbPersonAuswahl
            .DisplayMember = "Personalnummer"
            .DataSource = Me.PersonDataSet1.Person
        End With
        NachnameTextBox.DataBindings.Add("Text", Me.PersonDataSet1.Person, _
          "Nachname")
        VornameTextBox.DataBindings.Add("Text", Me.PersonDataSet1.Person, _
        "Vorname")
        cmd.Connection.Close()
    End Sub