Found it....

Code:
Dim xl As New Excel.Application
Dim xlwbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet


Private Sub Form_Load()
    Dim Rpath As String
    
      Rpath = "C:\Program Files\VV\CSV1000\Database\csv_1000_E_6_10.xls"
    
    OLE1.SourceDoc = Rpath
    OLE1.CreateEmbed Rpath
    
    Set xlwbook = xl.Workbooks.Open(Rpath)
    Set xlsheet = xlwbook.Sheets.Item(2)
   
     xlsheet.Cells(5, 2) = Val(Patient_Info2.OS_NG(0)) ' row 5 col 2
     xlsheet.Cells(5, 3) = Val(Patient_Info2.OS_NG(1)) ' row 5 col 3
     xlsheet.Cells(5, 4) = Val(Patient_Info2.OS_NG(2)) ' row 5 col 4
     xlsheet.Cells(5, 5) = Val(Patient_Info2.OS_NG(3)) ' row 5 col 5
    
     xlsheet.Cells(6, 2) = Val(Patient_Info2.OD_NG(0)) ' row 6 col 2
     xlsheet.Cells(6, 3) = Val(Patient_Info2.OD_NG(1)) ' row 6 col 3
     xlsheet.Cells(6, 4) = Val(Patient_Info2.OD_NG(2)) ' row 6 col 4
     xlsheet.Cells(6, 5) = Val(Patient_Info2.OD_NG(3)) ' row 6 col 5
        
    xlwbook.Save
    OLE1.Update

End Sub

Private Sub Form_Unload(Cancel As Integer)
'don't forget to do this or you'll not be able to open
'book1.xls again, untill you restart you pc.
    
    xl.ActiveWorkbook.Close True, Path
    xl.Quit
   
    Set xlwbook = Nothing
    Set xl = Nothing
    Unload Me
End Sub
This ALMOST works correctly. For some reason even though the data IS put into Excel, the graph does'nt update correctly until you call the routine a 2nd time!!! Any ideas???