Passing a parameter to a Crystal Report 1

[Alkemac]

I have a VB6 Application, using Crystal Reports 10 and SQL Svr 2000.

In the Crystal Report (GH3A) Group header, I have a formula (@FinancialSummary), which calculates a date string based on a field in the table. However, I'd like to pass it the value from my code. The code I use to call the report is as follows:-

Set rptMain = rptApp.OpenReport("\\sdnwres01\statements\CrystalReports\Statement.rpt")
rptMain.DiscardSavedData
rptMain.ExportOptions.DiskFileName = "\\Joh-d001460\statements\" & RTrim(Text6.Text) & "\Bakwena\Acc 100000 to 199999 - " & Text6.Text & ".pdf"
rptMain.RecordSelectionFormula = ExclStr
rptMain.ExportOptions.DestinationType = crEDTDiskFile
rptMain.ExportOptions.FormatType = crEFTPortableDocFormat
rptMain.Export False
rptMain.DiscardSavedData
Set rptMain = Nothing
Screen.MousePointer = vbDefault

What do I need to add to the above code to pass @FinancialSummary a string that I want printed on the report ?

Thanks

 

[vidru]

strFormulaText = "blah, blah, blah"
rptMain.FormulaFields.GetItemByName("FinancialSummary").Text = Chr(34) & strFormulaText & Chr(34)

-dave