Dim rpt As Access.Report
Dim ctlObjFrame As Access.ObjectFrame
Dim cw_rsTemplates As DAO.Recordset

Set rpt = CreateReport
Set ctlObjFrame = CreateReportControl(rpt.Name, _
       acObjectFrame, , "", "", 100, 100)
Set cw_rsTemplates = CodeDb().OpenRecordset( _
       "cw_tblChartTemplates", dbOpenDynaset)
cw_rsTemplates.MoveFirst
 ' Set OleData property to template graph from OLE field
ctlObjFrame.OleData = cw_rsTemplates!ChartObject
DoCmd.Restore

Copyright By AccessVision