Sub AlleZeigen()
 
        Try
            con.Open()
            cmd.CommandText = "select * from Anlagenbuchhaltung"
            Ausgabe()
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        con.Close()
 
        txtAufrufname.Text = ""
        txtProgrammaufruf.Text = ""
 
    End Sub
 
 Sub Ausgabe()
 
        reader = cmd.ExecuteReader()
        lstAnzeige.Items.Clear()
        pnummer.Clear()
        Do While reader.Read()
            lstAnzeige.Items.Add(reader("AufrufnameAB") & " # " _
            & reader("ProgrammaufrufAB"))
            pnummer.Add(reader("AufrufnameAB"))
        Loop
        reader.Close()
 
    End Sub

Private Sub cmdLöschen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdLöschen.Click
        If txtAufrufname.Text = "" Then
            MsgBox("Bitte einen Datensatz auswählen")
            Exit Sub
        End If
 
        If MsgBox("Wollen Sie den ausgewählten " & "Datensatz wirklich" & _
          "löschen?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If
 
        Try
            con.Open()
            cmd.CommandText = "delete from Anlagenbuchhaltung " & _
               "where AufrufnameAB = " & pnummer(lstAnzeige.SelectedIndex)
 
            'MsgBox(cmd.CommandText)
            Anzahl = cmd.ExecuteNonQuery()
            If Anzahl > 0 Then
                MsgBox("Es wurde ein Datensatz gelöscht")
            End If
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        con.Close()
        AlleZeigen()
 
    End Sub

    Private Sub cmdÄndern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdÄndern.Click
 
        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 = " & pnummer(lstAnzeige.SelectedIndex)
 
            ' Meldung
            Anzahl = cmd.ExecuteNonQuery()
            If Anzahl > 0 Then
                MsgBox("Es wurde ein Eintrag geändert")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        con.Close()
        AlleZeigen()

Dim pnummer As New ArrayList