Hi,
try like below.
Dim subreportName As String
Dim subreportObject As SubreportObject
Dim subreport As New ReportDocument()
If TypeOf (Report.ReportDefinition.ReportObjects. _
Item("SubReport1")) Is SubreportObject Then
subreportObject = Report.ReportDefinition.ReportObjects. _
Item("SubReport1")
subreportName = subreportObject.SubreportName
subreport = Report.OpenSubreport(subreportName)
Dim dsNowMST As New dsNowMST()
da = New Odbc.OdbcDataAdapter(BDRSql, Con)
da.Fill(dsNowMST, "commNowMst")
subreport.SetDataSource(dsNowMST)
End If
refer
MSDN[
^]
hope it works.