Crystal Report - parametros subinforme

hola a todos
tengo un problema y no se como pasar parametros a un subformulario
Os mando el texto como lo tengo y si podeis ayudarme os lo agradezco

''Informe principal
Set crRep = crApp.OpenReport(App.Path & "\rptInformeIncidencias.rpt")

Set crParamDefs = crRep.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "strfecha2"
crParamDef.AddCurrentValue (Strfecha2)
End Select
Next

Set crDataBase = crRep.Database
Set crDataBaseTables = crDataBase.Tables
Set crDataBaseTable = crDataBaseTables.Item(1)
crDataBaseTable.SetDataSource rs

''SUBiNFORME
rs.Filter = "TipoLinea='03'"
Set rstaux = ClonarRecordset(rs)
rstaux.Sort = "orden ASC"
crRep.OpenSubreport("Linea3").Database.SetDataSource rstaux
rs.Filter = adFilterNone
Set rstaux = Nothing

Gracias a todos