Try
            con.Open()
            cmd.CommandText = "select * from personen " & "where personalnummer" & _
              "= " & pnummer(ListBox1.SelectedIndex)
 
            reader = cmd.ExecuteReader()
            reader.Read()
 
            TextName.Text = reader("name")
            Vorname.Text = reader("vorname")
            Personalnummer.Text = reader("personalnummer")
            Gehalt.Text = reader("gehalt")
            Geburtstag.Text = reader("geburtstag")
            reader.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()