Access XP: 35602 - Key is not unique in collection.

Hi: I need your help because I don't get to solve this problem (error 35602).

I have a form in Access XP. When it is loaded, it is loaded data into a ListView control and this error (35602 - Key is not unique in collection)shows up. The VB code is the following:

Private Sub fill_anomalias()

lstAnomalias.ListItems.Clear
Dim strsql As String

strsql = "SELECT * from emcp_listadoanomalias WHERE idAccionAnomalia is Null AND idSeccion=" & idSeccionAnomalias
conectar conn, rst, strsql, adOpenStatic, adLockReadOnly
While Not rst.EOF
lstAnomalias.ListItems.Add , "A" & rst.Fields("idAnomalia"), rst.Fields("Anomalia")
Select Case rst.Fields("idTipoOrigen")
Case 1 ' Evaluacion de un puesto
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZO" & rst.Fields("idAnomalia"), "Eval: " & rst.Fields("Puesto") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZF" & rst.Fields("idAnomalia"), rst.Fields("FechaPuesto") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZP" & rst.Fields("idAnomalia"), rst.Fields("PrioridadPuesto") & " "
Case 2 ' Evaluacion de un lugar
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZO" & rst.Fields("idAnomalia"), "Eval: " & rst.Fields("Lugar") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZF" & rst.Fields("idAnomalia"), rst.Fields("fechaLugar") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZP" & rst.Fields("idAnomalia"), rst.Fields("PrioridadLugar") & " "
Case 3 ' Inspeccion de seguridad
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZO" & rst.Fields("idAnomalia"), "Insp: " & rst.Fields("NumeroInspeccion") & "-" & rst.Fields("yearInspeccion") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZF" & rst.Fields("idAnomalia"), rst.Fields("FechaInspeccion") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZP" & rst.Fields("idAnomalia"), " "
Case 4 ' Comunicación de anomalías
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZO" & rst.Fields("idAnomalia"), "Comu: " & rst.Fields("NumeroComunicacion") & "-" & rst.Fields("yearComunicacion") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZF" & rst.Fields("idAnomalia"), rst.Fields("FechaComunicacion") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZP" & rst.Fields("idAnomalia"), " "
Case 5 ' Evaluación de un equipo
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZO" & rst.Fields("idAnomalia"), "Eval: " & rst.Fields("Equipo") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZF" & rst.Fields("idAnomalia"), rst.Fields("FechaEquipo") & ""
lstAnomalias.ListItems("A" & rst.Fields("idAnomalia")).ListSubItems.Add , "ZP" & rst.Fields("idAnomalia"), rst.Fields("PrioridadEquipo") & " "

End Select
rst.MoveNext
Wend
desconectar conn, rst
End Sub

Can Someone help me?

Thanks so much for your help.