AIUTO LISTVIEW!

l'errore mi da al punto desc= e mi segnala LIMITI ESAURITI PER INDICE
ERRORE RUN-TIM 35600


codice:
Sub Salva()
Dim i As Integer
Dim a As String
Dim desc As String
Dim itmx3 As ListItem
Dim db7 As DAO.Database
Dim rs9 As DAO.Recordset
Dim SQL, SQL1 As String
Set db7 = OpenDatabase("c:\newcs\newcs.mdb")
For i = 1 To LvNewCS2.ListItems.Count
a = LvNewCS2.ListItems(i).Text
desc = LvNewCS2.ListItems(i).ListSubItems(i).Text
SQL = "INSERT INTO Corpo(CodArt, Descrizione) VALUES ('" & a & "', '" & desc & "')"
db7.Execute (SQL)
Next i
End Sub

AIUTO.