Passar valores do ListView para CR

[mssacramento]

Olá a todos:

Estou a tentar passar elementos de um ListView para um Report no Crystal.

Para tal escrevi o seguinte código:

Dim Report As New CRAXDRT.Application
Dim Rpt As CRAXDRT.Report


Set Report = New CRAXDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\Super8-ClassificacaoFinal.rpt")


For s = 1 To FrmSuper8.ListView1(1).ListItems.Count

Rpt.ParameterFields(1).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s)) 
Rpt.ParameterFields(2).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s).SubItems(2)) 
Rpt.ParameterFields(3).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s).SubItems(3)) 

Next

CRViewer1.ReportSource = Rpt

CRViewer1.ViewReport

O problema é que o presente código só insere o último registo do listview...

Alguma dica para que isto funcione?

Obrigadp