Kasowanie wybranego produktu z zapisanej bazy

Poniżej przedstawiam kod do usuwania zapisanego produktu z  bazy. W tym celu należy kliknąć dwa razy w okienko "Kasowanie". Wyświetli się wtedy procedura, do której należy dopisać poniższy kod.
Private Sub_Kas_Click(ByVal sender As Object, ByVal e As System.EventsArgs) Handles btnKas.Click
            If lstPokarm.SelectedItems.Count = 0  Then            ' Gdy nie jest wybrany produkt 
                 MessageBox.Show("Wybierz produkt z tabeli do skasowania", "Uwaga")
                Exit Sub
            End If
            If lstPokarm.SelectedItems.Count <> 0 Then           ' Gdy wybrano
                 msg = " Czy na pewno chcesz skasować ten produkt z bazy"
                 tyt = " Kasowanie"
                 styl =MsgBoxStyle.DefaultButton2 Or _
                          MsgBox.Style.YesNo
                res = MsgBox(msg, styl, tyt)
                If res = MsgBoxResult.No Then
                         Exit Sub
               Else
                       For Each i As ListViewItem In lstPokarm.SelectedItems        ' Otwarcie pętli
                          lstPokarm.Items.Remove(i)                   ' Skasowanie z tabeli produktu
                    Next
                    Kill("Pokarm")                                            ' Skasowanie calej bazy
                   FileOpen(1, "Pokarm", OpenMode.Append)     ' Zapis zawartości tabeli
                         For i = 0 To lstPokarm.Items.Count() - 1
                             Write(1, lstPokarm.Items(i).SubItems(0).Text)
                              Write(1, lstPokarm.Items(i).SubItems(1).Text)
                          Next
                     FileClose(1)                                         ' Zamknie pliku
                       End If
                      txtNazwao.Text = "": txtEno.Text = ""             ' wygaszenie odczytu poniżej tabeli
        End If
         Odczyt()                                                                               ' Ponowne odczytanie bazy w tabeli
        End Sub