Заполните Crystal Report из двух разных таблиц, не объединяя их

Question

У меня есть таблицы: tbl_products и tbl_services.
Пользователь выберет продукты и услуги из заданного списка.
После выбора продуктов и услуг список будет сохранен в tbl_productsи `tbl_services и будут перечислены в отчете Crystal.
Вот код, который я использовал для заполнения подотчетов в моем отчете Crystal.

    Dim ds As New DataSet
    Dim sql As String

    con.Open()
    sql = "Select A.ProductName,A.Description,A.Model,A.Quantity,A.UnitPrice,A.TotalPrice,B.Services,B.Price from tbl_products as A, tbl_services as B where A.ID = '" & lblid.text & "' and B.ID = '" & lblid.text & "'"
    Dim dscmd As New OdbcDataAdapter(sql, con)
    dscmd.Fill(ds, "tbl_transac")
    dscmd.Fill(ds, "tbl_servicestransac")

    Dim objRpt As New CrystalReport1

    objRpt.SetDataSource(ds.Tables("tbl_products"))
    objRpt.SetDataSource(ds.Tables("tbl_services"))


    CrystalReportViewer1.ReportSource = objRpt
    CrystalReportViewer1.Refresh()
    con.Close()

Подотчет1, содержащий продукты, соответствуетусловие и может показывать только 2 продукта, которые я выбираю, но во втором подотчете с таблицей услуг отображаются все строки в моем tbl_services.Картинка ниже - это то, как должен выглядеть мой отчет.Спасибо за любую помощь.

Пример выбранных продуктов и услуг