Limiti esauriti per l'indice

[Dario Cannata]

Scusate in anticipo per il problema che pongo, sicuramente sarà banale
nella soluzione ma a me sta facendo venire il norvoso...

Ho problemi a popolare una listview con dei record estratti da un file
access, posto il codice:

questo è l'sql
risp = select * from movimenti where cdate(data) >=
cdate('03/07/2010') order by data, magazzino, causale

col risultato faccio
Set rs = New ADODB.Recordset
rs.LockType = adLockReadOnly
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.Open (risp), cnn
If rs.RecordCount <> 0 Then
DoEvents
'cancello le colonne
Main_eu.Listview3.ListItems.clear
Main_eu.Listview3.ColumnHeaders.clear
'aggiungo le colonne per l'intestazione della lista
Main_eu.Listview3.ColumnHeaders.Add , , "Magazzino", 2300
Main_eu.Listview3.ColumnHeaders.Add , , "Data", 800
Main_eu.Listview3.ColumnHeaders.Add , , "Movimento", 1600
Main_eu.Listview3.ColumnHeaders.Add , , "Colli", 800
d = 1
Do While Not rs.EOF
DoEvents
Main_eu.Listview3.ListItems.Add , , rs("magazzino")
Main_eu.Listview3.ListItems(d).ListSubItems.Add , , rs("data")
Main_eu.Listview3.ListItems(d).ListSubItems.Add , , rs("causale")
Main_eu.Listview3.ListItems(d).ListSubItems.Add , , rs("imballi")
Main_eu.Listview3.ListItems(d).ForeColor = QBColor(1)
Main_eu.Listview3.ListItems(d).Bold = True
rs.MoveNext
d = d + 1
Loop

Il problema è che ogni volata mi da errore per "superati limiti
dell'indice" e si blocca.
Eppure è una routine che mi ha sempre funzionato e non capisco perché
adesso non ne voglia sapere!!

Grazie in anticipo per gli eventuali aiuti.

Cordialità