Hola amigo! te cuento hice algunos cambios, el rs! si lo acepta ese no es el problema, te paso lo que modifique y el error que me tira:
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.
Laulaurys