Crystal Report

[olegber]

Добрый день.
Отчёт на crystal report 8.5
В этом отчёте 3 подотчёта.
Создаю объект:

[codebox] Set Report = CreateObject("Crystal.CrystalReport")
Call Report.Reset
Report.ReportFileName = ReportFile$
Report.Connect = "ODBC;DSN = "& DSN & ";UID = ;PWD = ;DSQ = Administration"
Report.WindowTitle="Loading supervision report"
Report.WindowShowPrintBtn = True
Report.WindowShowPrintSetupBtn = True
Report.WindowShowExportBtn = True
Report.WindowShowCloseBtn = True
Report.WindowShowZoomCtl = True
Report.WindowState=2
Report.WindowShowNavigationCtls=True
Report.WindowShowCancelBtn=False
Report.WindowShowProgressCtls=True
Report.WindowShowRefreshBtn=False
Report.WindowShowSearchBtn=True
Report.WindowShowGroupTree=True
Report.Destination=0
Call Report.PrintReport
If Report.LastErrorNumber <>0 Then
Mess=Messagebox (Report.LastErrorString, 0+48+0 , DB.Title & " - Crystall")
Exit Sub
End If[/codebox]

Проблема - не меняется источник данных в подоточётах.
Где то читал, что нужно менять источник данных то ли в каждом подотчёте, то ли в таблицах..