Private sub_ReportDatatable As DataTable
    Public WriteOnly Property subReportDatatable() As DataTable
        Set(ByVal value As DataTable)
            sub_ReportDatatable = value
        End Set
    End Property
 
    Private sub_ReportDatasetname As String
    Public WriteOnly Property subReportDatasetname() As String
        Set(ByVal value As String)
            sub_ReportDatasetname = value
        End Set
    End Property
 
 
    Public Sub SubreportProcessingEventHandler(ByVal sender As Object, ByVal e _
      As SubreportProcessingEventArgs)
        e.DataSources.Add(New ReportDataSource("dsTPA_ProgFarb", _
        sub_ReportDatatable))
    End Sub