ciao,
purtroppo sono passato definitivamente a .net e non ho possibilita' di darti aiuto su codice vb6, in particolare poi non ho mai usato quel codice per visualizzare report.
Tipicamente usavo un codice di questo tipo:
Dim crApp As New CRAXDDRT.Application
Dim crRep As CRAXDDRT.Report
'--- carico i dati io e glieli do al report...
Dim zRsCli As New ADODB.Recordset
Dim zRsInd As New ADODB.Recordset
Dim zCn As New ADODB.Connection
zCn.CursorLocation = adUseClient
zCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb"
Set zRsCli = zCn.Execute("select top 1 * from clienti")
Set zRsInd = zCn.Execute("select * from indirizzi")
'--- evvai con il report
Set crRep = crApp.OpenReport(App.Path & "\report1.rpt")
crRep.Database.SetDataSource zRsCli
'--- e il sottoreport
crRep.OpenSubreport("indirizzi").Database.SetDataSource zRsCli
CRViewer1.ReportSource = crRep
CRViewer1.ViewReport
per piu' tabelle se non ricordo male andavo via "Database.Tables(..).SetDataSource".
Vedi tu se un codice simile è possibile applicarlo alla tua applicazione...
ciao.
Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo