Setting Data Report source..

Hey, I need to set the database source to an object that is created on run time...

VB Code:

Global db As Database
Global rs As Recordset
 
Public Function iNit()
Set db = OpenDatabase("C:\agazeus\vb\report\db.mdb")
Set rs = db.OpenRecordset("tb", dbOpenTable)
End Function

Is there any way to set the data source to "rs" for it to print the recordset? Thanks.