Esto es lo que yo habia puesto originalmente pero no me funciono :(
gracias igual por la buena onda!
si se te ocurre otra cosa avisame!
un beso
Cita:
Iniciado por jc_moty A ver, porque no probas asi:
Código:
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.Fields("Item") = lista_item.Columns(1,c)
Rs.Update
End If
Next c
Saludos
