Public NotInheritable Class OleDBDataSource 

public sealed class OleDBDataSource 

private void detail_Format(object sender, System.EventArgs eArgs)
{    
    rptSub rpt = New rptSubBM();    
    GrapeCity.ActiveReports.Data.OleDBDataSource subDS = new GrapeCity.ActiveReports.Data.OleDBDataSource();    
    subDS.ConnectionString = this.ds.ConnectionString;    
    subDS.SQL = "Select * from products where categoryID = " + m_categoryID;    
    rpt.DataSource = subDS;    
    ctlSubReport.Report = rpt;
}

Private Sub Detail1_Format(ByVal sender As Object, ByVal e As System.EventArgs) Handles Detail1.Format
    Dim rpt As New rptSubBM()
    Dim subDS As New GrapeCity.ActiveReports.Data.OleDBDataSource()    
    subDS.ConnectionString = Me.ds.ConnectionString    
    subDS.SQL = "Select * from products where categoryID = " + m_categoryID    rpt.DataSource = subDS    
    Me.ctlSubreport.Report = rpt 
End Sub