[VB6] Riferimenti a sottoreport di Crystal Report 6

[Surrender79]

Ciao, ho una form che lancia un report creato in CR.
Ho bisogno di specificare a quale db fanno riferimento le tabelle su cui il report è basato e riesco in questo modo:
CrystalReport1.DataFiles(0) = "MIODB.dbo.SE_RAGGRUPPAMENTI"

Non so come fare la stessa cosa indicando un riferimento ai sottoreport, qualcuno può aiutarmi per favore?

[Surrender79]

Ho trovato la risposta, posto qui sotto il codice (che sembra funzionare) così se qualcun altro dovesse aver bisogno:

CrystalReport1.DataFiles(0) = "MIODB.dbo.SE_RAGGRUPPAMENTI"
CrystalReport1.DataFiles(1) = "MIODB.dbo.MATERIALS"
CrystalReport1.DataFiles(2) = "MIODB.dbo.SE_PIANO_PROD"
CrystalReport1.DataFiles(3) = "MIODB.dbo.SE_OPE_RAGG"
CrystalReport1.DataFiles(4) = "MIODB.dbo.SE_ORD_LAV"
CrystalReport1.DataFiles(5) = "MIODB.dbo.SE_BARCODE_RAGG"
        
' Prende il nome del sottoreport
strSubRepName = CrystalReport1.GetNthSubreportName(0)
' Le proprietà che successivamente verranno
' impostate riguarderanno il sottoreport indicato
CrystalReport1.SubreportToChange = strSubRepName
' Stringa di connessione del sottoreport
CrystalReport1.Connect = strConn
CrystalReport1.DataFiles(0) = "MIODB.dbo.MATERIALS"
CrystalReport1.DataFiles(1) = "MIODB.dbo.SE_PIANO_PROD"
CrystalReport1.DataFiles(2) = "MIODB.dbo.SE_ORD_LAV"
CrystalReport1.DataFiles(3) = "MIODB.dbo.SE_RAGGRUPPAMENTI"
CrystalReport1.DataFiles(4) = "MIODB.dbo.SE_OPE_RAGG"
        
' Le proprietà ora tornano al report principale
CrystalReport1.SubreportToChange = ""