[VB6] Ciclare valori di una ListView

[LMondi]

Non riesco ad inserire in una Tbl del DB Access i valori contenuti in una ListWiev. Dal controllo passo a passo (F8) ho verificato che i valori sono acquisiti correttamente per ogni step del ciclo, ma nella Tbl del DB trovo ripetuto n volte solo il primo record.
Dove sbaglio?

With ConSR5
            .ConnectionString = DataConnessione
            .CursorLocation = adUseClient   'tipo di cursore
            .Mode = adModeShareDenyNone     'nessuna limitazione
            .CommandTimeout = 15
            .Open
       End With
       
        OggSR5.ActiveConnection = ConSR5
        OggSR5.CommandType = adCmdText

        For c = 1 To FrmLisDiff.LvDiff.ListItems.Count
OggSR5.CommandText = "Insert Into TblStampaDifferenze(Reg, Dep, Prop, Res, ValCo,"_
& "OdLi, ImportDec, Diff)" _
& "values ('" & (FrmLisDiff.LvDiff.ListItems.Item(c).Text) & "', '" & (FrmLisDiff.LvDiff.ListItems.Item(c).SubItems(c)) & "', '" & (FrmLisDiff.LvDiff.ListItems.Item(c).SubItems(c + 1)) & " ', '" & (FrmLisDiff.LvDiff.ListItems.Item(c).SubItems(c + 2)) _
& "', '" & Ctr(FrmLisDiff.LvDiff.ListItems.Item(c).SubItems(c + 3)) & "', '" & (FrmLisDiff.LvDiff.ListItems.Item(c).SubItems(c + 4)) & "', '" & (FrmLisDiff.LvDiff.ListItems.Item(c).SubItems(c + 5)) & "', '" & (FrmLisDiff.LvDiff.ListItems.Item(c).SubItems(c + 6)) & "');"
OggSR5.Execute
Next c

Grazie per l'aiuto.