Rebet Altamirano,
The following code example will return a SubreportObject and hope that can help you:
Private Function GetSubreportObject _
(ByVal reportObjectName As String) As SubreportObject
Dim subreport As SubreportObject
If TypeOf _
(Report.ReportDefinition.ReportObjects. _
Item(reportObjectName)) Is SubreportObject Then
subreport = _
Report.ReportDefinition.ReportObjects. _
Item(reportObjectName)
GetSubreportObject = subreport
Else : GetSubreportObject = Nothing
End If
End Function