This should do it. Make sure to add an OLE Object to your report (Insert, Object..., MS Excel Chart) and name it OLEExcelObject. Your report should be named ReportName and your table of data --> Data. Only 2 series are there but the same principle will work for any numbers. Have Fun
Private Sub CreateGraph()
Dim db As Database
Dim rstData As Recordset
Dim xlWrkSht As Worksheet
Dim xlGraph As Chart
Dim iCols As Integer
Dim NumberOfData As Integer
Dim Xl As New Excel.Application
'Excel MUST be opened. If not, graph won't work
Xl.Workbooks.Add.Activate
Set xlGraph = Reports!ReportName!OLEExcelObject.Charts("Chart1")
Set xlWrkSht = Reports!ReportName!OLEExcelObject.Worksheets("Sheet1")
Set db = CurrentDb()
Set rstData = db.OpenRecordset("Data")
'new set of data
xlGraph.ChartArea.ClearContents
'copying the columns title if needed
For iCols = 0 To rstData.Fields.Count - 1
xlWrkSht.Cells(1, iCols + 1).Value = rstData.Fields(iCols).Name
Next
'counting how many of new data
While xlWrkSht.Range("B" & NumberOfData + 1) <> ""
NumberOfData = NumberOfData + 1
Wend
xlGraph.Activate
'first serie
xlGraph.SetSourceData _
Source:=xlWrkSht.Range("a1:b" & NumberOfData), _
PlotBy:=xlColumns
'Second serie
xlGraph.SeriesCollection.Add _
Source:=xlWrkSht.Range("c1:d" & NumberOfData)
'close excel. MUST be closed before the report
Xl.Quit
'release every pointer. free up memory
Set Xl = Nothing
Set xlWrkSht = Nothing
Set xlGraph = Nothing
Set db = Nothing
Set rstData = Nothing
Set rstHist = Nothing
End Sub
