I have a VBScript that may help you. The code imports a
recordset into a .XLS and generates a chart based on the
<.usedrange>. I use it as a basic template for larger
jobs, and maybe you will find it useful too. Sorry for the
bad textwrap.

M

'*---ADO Connection for ChartScript
'*---By: M. Mills 02/12/2004
'*---Imports data from Access.mdb and generates
'*---a chart in Excel.
'*---------------------------------

dim con       
dim rst
dim rng
dim strCon
dim strSQL
   

    strCon = "Provider=Microsoft.Jet.OLEDB.4.0; " _
            &"Data Source=C:\Test.mdb"
           
    set con = CreateObject("ADODB.Connection")
    set rst = CreateObject("ADODB.Recordset")

        con.Open strCon
   
    '*---Establish the SQL statement
    strSQL = "SELECT * INTO
Excel8.0;Database=C:\Drive.xls].[Drive] FROM Query2"
       
    set rst = con.Execute(strSQL)
   
    '*---Release Access and close connection
    Set con = Nothing
    Set rst = Nothing       
       
    '*---Open Excel and generate chart based on the
imported data   

    Set excel=CreateObject("Excel.Application")
        excel.WorkBooks.Open "c:\Drive.xls"
        excel.application.visible = true
   
    '*---Delete the imported Field Names
    Set rng = excel.Worksheets(1).Range("A1:C1")

        rng.Select
        rng.Delete
   
        excel.Worksheets(1).usedrange.select

    '*---Set up the chart
    Set MyChart = Excel.Charts.Add()
        MyChart.ChartType = 55
        MyChart.SeriesCollection(2).Name = "=""Y
Axis Title"""           
        MyChart.SeriesCollection(1).Name = "=""X
Axis Title"""
       
'*---Basic chart properties
        With MyChart
               .HasTitle = True
          
    .ChartTitle.Characters.Text= "Whatever1"
               .Axes(1).HasTitle = True
               .Axes(1).AxisTitle.Characters.Text
= "Whatever2"
               .Axes(3).HasTitle = False
               .Axes(2).HasTitle = True
               .Axes(2).AxisTitle.Characters.Text
= "Whatever3"
           End With

    '*---Save the chart
    Excel.ActiveWorkbook.SaveAs "C:\MSGraph_Test.xls"

I'd be interested in what reference you found in the MSKB that led you
to conclude what you want cannot be done.

From your description of the task it is eminently doable.