Yes...
the problem solved :), and this is the code:

Dim rp As New rpt_MemDetails
Dim s = oRpt.OpenSubreport("sr")
Dim s2 = oRpt.opensubreport("subs")
s.SetDataSource(myDS)
s2.setdatasource(myDS)

Kevin, thank you very much for your help.
Ahmad


>OK...I'm not sure if it will help, but I sent you a 2nd message with a code snippet for setting the data source for the subreport. I wasn't sure if you were doing that as well.
>
>Kevin