Problemer med listview

Efter jeg har søgt meget rundt på eksperten og andre steder på nettet uden helt, tog jeg mig endelig sammen til at oprette et spørgsmål selv.
Er ved at lave et cd-register (skoleprojekt) , men kan ikke helt få min listview til at virke korrekt.

Jeg kan let starte programmet osv. og jeg kan også vise indholdet af listboxen én gang, men når det skal opdateres
går det galt, og jeg får fejlbeskeden :

Run-time error '35602':
Key is not unique in collection

Mine evner i Visual Basic er yderst begrænsede, og derfor jeg har vendt mig mod jer, Eksperter.

Her i koden: (håber nogen kan finde fejlen)


Option Explicit
Dim itm As ListItem
Dim i As Integer


Private Sub cmdTilføj_Click()
   
    FilNavn = "users\" & ValgtNavn
    Postlængde = Len(Register)
    Open FilNavn For Random As #1 Len = Postlængde
    SidstePost = FileLen(FilNavn) \ Postlængde

    PostNr = SidstePost + 1
   
    Register.Kunstner = InputBox("Kunstner")
    Register.Titel = InputBox("Titel")
    Register.Tid = InputBox("Tid")
    Register.Rating = InputBox("Rating")
    Register.Kommentar = InputBox("Kommentar")
           
    Put #1, PostNr, Register
       
    Close #1
   
    List
   
End Sub

Private Sub Form_Load()
    List
End Sub

Private Sub List()
    FilNavn = "users\" & ValgtNavn
    Postlængde = Len(Register)
    Open FilNavn For Random As #1 Len = Postlængde
    SidstePost = FileLen(FilNavn) \ Postlængde
   
   
   
    For i = 1 To SidstePost
        Get #1, i, Register
        Set itm = ListView1.ListItems.Add(i, "Row" & i, Register.Kunstner)
        itm.SubItems(1) = Register.Titel
        itm.SubItems(2) = Register.Tid
        itm.SubItems(3) = Register.Rating
        itm.SubItems(4) = Register.Kommentar
    Next i
   
    Close #1
End Sub

/Douglas