Subreport with crystalreportviewer VB.NET

See more:

C#

VB

Please
How can show subreport in crystalreportviewer without main report in vb.net.
I tried opensubreport by reportdocument But I get an error 'not support reportviewer with subreport

What I have tried:

Private Sub OpenSubreport(ByVal reportObjectName As String)
         Dim subreportName As String
         Dim subreportObject As SubreportObject
         Dim subreport As New ReportDocument()

         If TypeOf (Report.ReportDefinition.ReportObjects. _
         Item(reportObjectName)) Is SubreportObject Then
            subreportObject = myReportDocument.ReportDefinition.ReportObjects. _
                Item(reportObjectName)
            subreportName = subreportObject.SubreportName
            subreport = myReportDocument.OpenSubreport(subreportName)
            MyCrystalReportViewer.ReportSource = subreport
         End If
      End Sub