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