lblAuswahl.Text = "Es wird die Auswahl >Anlagenbuchhaltung< angezeigt:"
 
        'Einträge auslesen
 
        Try
            con.Open()
            cmd.CommandText = "select * from Anlagenbuchhaltung"
            reader = cmd.ExecuteReader()
            lstAnzeige.Items.Clear()
            DSNummer.Clear()
            Do While reader.Read()
                lstAnzeige.Items.Add( _
                  reader("AufrufnameAB") & " # " _
                & reader("ProgrammaufrufAB"))
                DSNummer.Add(reader("AufrufnameAB"))
            Loop
            reader.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        con.Close()
 
        txtAufrufname.Text = ""
        txtProgrammaufruf.Text = ""

    Try
 
            con.Open()
            cmd.CommandText = "select * from Anlagenbuchhaltung where" & _
              "AufrufnameAB = " & DSNummer(lstAnzeige.SelectedIndex)
 
            reader = cmd.ExecuteReader()
            reader.Read()
 
            txtAufrufname.Text = reader("AufrufnameAB")
            txtProgrammaufruf.Text = reader("ProgrammaufrufAB")
            reader.Close()
 
        Catch ex As Exception
        End Try
 
        con.Close()

        lblAuswahl.Text = "Es wird die Auswahl >Anlagenbuchhaltung< geändert:"
 
        'Einträge ändern
 
        If txtAufrufname.Text = "" Then
            MsgBox("Bitte einen Eintrag auswählen!")
            Exit Sub
        End If
 
        Try
            con.Open()
            cmd.CommandText = _
                "update Anlagenbuchhaltung set " & _
                "AufrufnameAB = '" & txtAufrufname.Text & "', " & _
                "ProgrammaufrufAB = '" & txtProgrammaufruf.Text & "' " & _
                "where AufrufnameAB = " _
                & DSNummer(lstAnzeige.SelectedIndex)
 
            ' Meldung
            Anzahl = cmd.ExecuteNonQuery()
            If Anzahl > 0 Then
                MsgBox("Es wurde ein Eintrag geändert")
            End If
        Catch ex As Exception
        End Try
 
        con.Close()

  Private Sub cmdÄndern_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles cmdÄndern.Click
 
        If optAnlagen.Checked Then
            GoTo Anlagenbuchhaltung
        End If
        If optBank.Checked Then
            GoTo Bankprogramm
        End If
 
usw.