Passar parametro para Sub-Relatório Crystal Reports

       Try

            Dim oRPxz As ReportDocument

            oRPxz = New Relatorio_Pneu_Carro_Caminhao_Completo_CLOGO


            oRPxz.SetParameterValue("os_parametro", "4481014")
            oRPxz.SetParameterValue("codcli_parametro", "2", "Rel_Cliente")
       

             Dim tela2 As New frmteste

            tela2.Tag = "CRPT"
            tela2.CrystalReportViewer1.ReportSource = oRPxz
            tela2.ShowDialog()
            
        Catch ex As Exception
            MsgBox(ex.ToString)

        Finally
            objConexao.Close()
        End Try