how to export listview contents to crystal report 8.5

See more:

VB6

I am developing a accounting software where i use listview to display stock report (compound unit) and want to export listview contents crystal report 8.5 directly using parameter fields. i made the code below :
dim i as long
dim n as string
dim codeitem as listitem
for i= 1 to listview.listitems.count
set codeitem=listview.listitems(i)
n=codeitem.text
next
report.parameterfields.getbyname("xxxx").addcurrentvalue n

But it displays the content of last row of the listview only
report through CRViewer

please help - urgent