Subreport com ParameterField - Store Procedure

Pessoal


Com base na estrutura abaixo, como faria para implementar um subreport, onde estou utilizando store procedure, e estou pensando em utilizar o parametro ParameterFieldName, onde o parametro do report é id_Pedido_Item, alguém teria alguma dica para me passar ?

Dim rptPrint As ReportDocument = New ReportDocument

rptPrint.Load(Me.nm_Path_RPT)
rptPrint.DataSourceConnections.Clear()

For nr_Servidor As Integer = 0 To rptPrint.DataSourceConnections.Count - 1
rptPrint.DataSourceConnections(nr_Servidor).SetConnection(Me.nm_Servidor, Me.nmBancoDados, Me.nm_Usuario, Me.ds_Senha)
rptPrint.SetDatabaseLogon(Me.nm_Usuario, Me.ds_Senha, Me.nm_Servidor, Me.nmBancoDados)
Next

Dim paramFields As New ParameterFields
Dim paramField As New ParameterField
Dim discreteVal As New ParameterDiscreteValue

paramField.ParameterFieldName = "id_Pedido_Principal"
discreteVal.Value = "00001234"
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)

CrystalReportViewer1.ParameterFieldInfo = paramFields
CrystalReportViewer1.ReportSource = rptPrint