vb 新手问题

Question

给listview写了个循环，
For i = 0 To Liv_Buy.ListItems.Count - 1Set Prm = Cmd.CreateParameter("@GiftName", adVarWChar, adParamInput, 50, Liv_Buy.ListItems(i).Text)NEXT调试说我索引越界，不明白。。

Answer 1

貌似 "@GiftName" 重复   

Answer 2

Liv_Buy.ListItems.Count
为集合，集合下标从1开始For i = 1 To Liv_Buy.ListItems.Count 
Set Prm = Cmd.CreateParameter("@GiftName", adVarWChar, adParamInput, 50, Liv_Buy.ListItems(i).Text) NEXT