Hi:

I have this code for extract a recordset to CR:

Code:
Set db = Workspaces(0).OpenDatabase(caminho)

Sql = _
      "select" & _
        " nomecomprador, expositor, gaiola" & _
        " from talao2006" & _
        " order by nomecomprador"
  
Set rs = db.OpenRecordset(Sql)
Set Data1.Recordset = rs

      
Set Report = New CRAXDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\aves2.rpt")

If (Rpt.HasSavedData) Then Rpt.DiscardSavedData

Rpt.Database.SetDataSource rs, 3, 1


setviewersize

CRViewer1.ReportSource = Rpt

CRViewer1.ViewReport

But Now I need to extract annother recordset to the same Report...
Something like this:

Code:
Set db = Workspaces(0).OpenDatabase(caminho)

Sql = _
      "select" & _
        " nomecomprador, expositor, gaiola" & _
        " from talao2006" & _
        " order by nomecomprador"
  
Set rs = db.OpenRecordset(Sql)
Set Data1.Recordset = rs


Sql = _
      "select" & _
        " nomecomprador, expositor, gaiola" & _
        " from talao2007" & _
        " order by nomecomprador"
  
Set rs = db.OpenRecordset(Sql)
Set Data1.Recordset = rs


        
Set Report = New CRAXDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\aves2.rpt")

If (Rpt.HasSavedData) Then Rpt.DiscardSavedData

Rpt.Database.SetDataSource rs, 3


setviewersize

CRViewer1.ReportSource = Rpt

CRViewer1.ViewReport
Off course The report only show one recordset...
Anyone know the way to do this?

Thanks