Private Sub mnuShowReport_Click()
Dim oReport As New clsReport
 
    DataReport.Orientation = rptOrientLandscape
    DataReport.DataMember = "Primary"
    Set DataReport.DataSource = oReport
    DataReport.Show
End Sub

Option Explicit
 
Dim adoPrimaryRS As Recordset
 
Private Sub Class_GetDataMember(DataMember As String, Data As Object)
  Select Case DataMember
  Case "Primary"
    Set Data = adoPrimaryRS
  End Select
End Sub
 
Private Sub Class_Initialize()
  Dim db As Connection
  Set db = New Connection
 
  Dim oQuery As New clsQuerys
 
  db.CursorLocation = adUseClient
 
  db.ConnectionString = "Foo"
 
  db.Open
  db.Execute (oQuery.CreateTempTable)
 
  Set adoPrimaryRS = New Recordset
 
  adoPrimaryRS.Open oQuery.CanBuildReport, db, adOpenStatic, adLockOptimistic
 
  DataMembers.Add "Primary"
 
  db.Execute (oQuery.DeleteTempTable)
 
  Set oQuery = Nothing
End Sub