**** ต้องการใช้ DataSource ของ Report เป็น Recordset ****

   ในบางงานเราต้องการออกรายงานจากผลที่เราได้มา แต่ผลที่เราได้มาอยู่ในรูปของ Recordset แต่
DataSource ไม่ค่อยจะสะดวกนักถ้าจะใช้กับ Recordset แต่นี่ป็นวิธีหนึ่งที่ใช้ได้
ที่ Event Open ของ Report เขียน Code ดังนี้

***** Code Start *****

Private Sub Report_Open(Cancel As Integer)
     Me.RecordSource = Rs.Name
End Sub

***** Code End *****

ที่ Module เปิด Module ขึ้นมาใหม่เป็น Standard Module จากนั้นเขียน Code ตามนี้

****** Code Start *****

Public grst As Recordset
Public Sub testreport()
     Set grst = CurrentDb.OpenRecordset( _ "Select * from tblTest1 where longfield=4")
     DoCmd.OpenReport "rptTest1", acViewPreview
     grst.Close
     Set grst = Nothing
End Sub

***** Code End *****