Set parameter to subreport

Hi,

I want to ask, how could I passing parameter to subreport by VB code?

I use 3 ways to do it, but still doesn't works

Dim rpt As New rptProfilePageBeautyUnitMain

1)

rpt.Subreports("BeautyUnitSub1").SetParameterValue("test1", "test")

2)               

Dim mySubReport As ReportDocument

mySubReport = rpt.OpenSubreport("BeautyUnitSub1")

mySubReport.SetParameterValue("test1", "test')

3)

rpt.SetParameterValue("test1", "test1", "BeautyUnitSub1")

Anyone could help me?