non so se ti possa servi questo esempio
codice:
DataReport2.Sections("Section2").Controls("cat_rep").Caption = cat
Set Rs_stampa = Cn_stampa.Execute("SELECT * FROM anagrafica WHERE categoria='" & cat & "'", adCmdText)
    Set DataReport2.DataSource = Rs_stampa 'rs
    DataReport2.WindowState = vbMaximized
    DataReport2.Show vbModal