Listview e SQL

[cla80]

Salve ragazzi: (Vi prego aiutatemi sto diventando pazzo)
Ho una tabella Listview:

Es.
cod. -- descr. --
ANES -- ANTNIKEESPANA
PESC -- PESCHE FRITTE
______________________
ecc...

Ora io voglio selezionare pari pari come sono nella listview e inserirli in una tabella Access.

Ora il codice che Vi propongo mi inserisce nel campo Codart
ANES per tre volte.
Ecco il codice:

Private Sub Command1_Click()
Dim i As Integer
Dim itmx3 As ListItem
Dim db3 As Database
Dim rs3 As Recordset
Dim StrSQL3 As String
Dim condric As Boolean
Set db3 = OpenDatabase("c:\newcs\ncs.mdb")
Set rs3 = db3.OpenRecordset("SELECT * FROM Stampa")
On Error Resume Next
For i = LvNewCS2.ListItems.Count To 0 Step -1
a = LvNewCS2.SelectedItem.Text
'artdes1 = LvNewCS2.SelectedItem.SubItems(i-1)
condric = True
StrSQL3 = "INSERT INTO Stampa(CodArt) VALUES ('" & a & "')"
db3.Execute (StrSQL3)
Next i
End Sub

Vi prego aiutatemi..

[cla80]

Vi prego chiedo aiuto!!

[cla80]

Aiutatemi, vi pregooo, ho bisogno veramente.

[riky78]

lo fa perchè non selezioni la riga, cioè SelectedItem rimane sempre quella (forse la prima)
prova così:

dim item as listItem
For each item in LvNewCS2.ListItems
   a = item.Text
   StrSQL3 = "INSERT INTO Stampa(CodArt) VALUES ('" & a & "')"
   db3.Execute (StrSQL3)
Next