ho risolto....non era così difficile!!
nel parametro index gli do 1 (e ai successivi 2,3 ecc...) e me li inserisce shiftando quelli già presenti...
codice:
Do while not tabella.eof
if tabella("campo") = variabile then
ListView1.ListItems.Add , , tabella("campo")
variabile = variabile + tabella("campo")
end if
tabella.movenext
loop
ListView1.ListItems.Add 1, , "Titolo"
ListView1.ListItems.Add 2, , variabile
ListView1.ListItems.Add 3, , "testo"
ListView1.ListItems.Add 4, , "testo"
ListView1.ListItems.Add 5, , calcolifinali