Sort Values from DB to CR by Code

Hi to all:

I want extract values from my database to Crystal and I had write this code:

Code:

---

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

Set db = Workspaces(0).OpenDatabase(Progaves)
Set Rstalao = db.OpenRecordset("select * from talao")
aSQL = aSQL & " ORDER BY nomecomprador"
Set Data1.Recordset = Rstalao


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

Do While Not Data1.Recordset.EOF

comprador = Data1.Recordset![nomecomprador] & ""
expositor = Data1.Recordset![expositor] & ""
gaiola = Data1.Recordset![gaiola] & ""

Rpt.ParameterFields(1).AddCurrentValue (comprador) 'Comprador
Rpt.ParameterFields(2).AddCurrentValue (expositor) ' Expositor
Rpt.ParameterFields(3).AddCurrentValue (gaiola) ' Gaiola


Data1.Recordset.MoveNext

Loop

setviewersize

CRViewer1.ReportSource = Rpt

CRViewer1.ViewReport

---

Like you see a simple code that work if I want sort values to a ListView or for a MSflexgrid,but with CR the report sort in blank...
I think I want to do more for this work,but I'm here a litlle confused...
Any help please?

Thanks