problema para guardar datos de listbox

laulaurys
30 de Noviembre del 2005
Hola estoy tratando de guardar las opcion seleccionadas de un listbox en una bd, les paso el codigo y el error a ver si me pueden ayudar pleasE! gracias!

sql = "SELECT * FROM [Acuerdo_Deudas_Item]"

rs.Open sql, cnn, adOpenDynamic, adLockOptimistic

For c = 0 To lista_item.ListCount
If lista_item.Selected(c) = True Then
rs.AddNew
rs!Id_Contratista = id_proveedor
rs!ID_Siderca = ID_Siderca
Dim rs4 As New ADODB.Recordset
Set rs4 = New ADODB.Recordset
sql = "SELECT Pos FROM [Items_Acuerdos] WHERE Item='" & lista_item.List(c) & "'"
rs4.Open sql, cnn, adOpenDynamic, adLockOptimistic
rs!Item = rs4(0)

End If

Next c

El error que me tira es "error 381 en tiempo de ejecucion", el indice de la matriz de propiedades no es valido....y me señala el LISTA_ITEM.SELECTED(C) PERO no se como hacer entonces para indexar....la verdad no se ya como solucionarlo!! espero ayuda, gracias.

mvallejos
30 de Noviembre del 2005
El bucle debe ir hasta ListCount-1, ya que al ser indice base 0, si hay, por ejemplo, 4 elementos, los indices son 0,1,2 y 3

Saludos