Passing Formula Field Values at runtime

I am using Crystal Report 8.5 & VB6.

I designed a report with a sub report. I am able to pass formula field values to main report but failed to pass to sub report. I am using formule field values to set my report header. Following is code for main report which is working nice for main report

Code:

---

Report.FormulaFields.GetItemByName("d" & Trim(Str(rsMonthTransaction.Fields("reportseq")))).Text = "'" & rsMonthTransaction.Fields("payheadname") & "'"

---

I need how do I perform this.

Thanks

Moved To Reporting