Error converting argument 1 to type class DoubleArray

I've had trouble with the code required to "query" the data as needed. Therefore, I've gone ahead and made the query in MS Access (my data source).

I have a query named FebHogs which contains the following fields:

Date: daily dates (no weekends) which range from 1995 to current

Feb: contains daily prices for the February CME Lean Hog Futures

FebF: calculates a "label" based on specific contract start/end dates (these start and end dates are always different based on a particular contract). The labels assigned are as such; Feb07, Feb08, Feb09, Feb10, or Feb11 (hence text). In general, the contract "year" is approx Feb 15 through Feb 14 (Feb08 would expire Feb 14'08, then Feb09 would begin).

GenDate: calculates a common date (I've used 2008 as my base year), uses month and day from the Date field (field 1 in my table, see above) and used 2008 as the date.

Here's some examples of the data from my query in MS Access.

Date Feb FebF GenDate

08-May-08 82.77 Feb09 5/8/2008

09-May-08 82.95 Feb09 5/9/2008

12-May-08 81.95 Feb09 5/12/2008

13-May-08 81.55 Feb09 5/13/2008

26-May-06 56.65 Feb07 5/26/2008

30-May-06 57.35 Feb07 5/30/2008

31-May-06 57.27 Feb07 5/31/2008

01-Jun-06 58.35 Feb07 6/1/2008

02-Jun-06 58.47 Feb07 6/2/2008

Maybe I've gotten all mixed up because I'm really more of an MS Excel user, and limited MS Access user, but I need to represent my data for each contract (Feb07, Feb08, etc) over Feb 15 through Feb 14.

I'm honestly not sure what I'm doing wrong, and no amount of google/forum searches seem to be helping. Anything you could add would be great.

I've attempted to use the code below, but keep receiving errors. Seems to be mix of text annd/or numbers? Not sure...

<%@ %>

Dim conn

Dim strSQL

Dim rs

Dim xDb_Conn_Str

Dim CFeb07, CFeb08, CFeb09, CFeb10, CFeb11

Set cd = CreateObject("ChartDirector.API")

SQL = "SELECT Date, Feb, FebF, GenDate FROM FebHogs where FebF IS NOT NULL order by Date;"

Set rs = CreateObject("ADODB.RecordSet")

Call rs.Open(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\WebDev\Db\WebDb.mdb;")

Set dbTable = cd.DBTable(rs)

rs.Close()

CFeb07 = "SELECT Feb From FebHogs where FebF = 'Feb07' order by GenDate;"

CFeb08 = "SELECT Feb From FebHogs where FebF = 'Feb08' order by GenDate;"

CFeb09 = "SELECT Feb From FebHogs where FebF = 'Feb09' order by GenDate;"

CFeb10 = "SELECT Feb From FebHogs where FebF = 'Feb10' order by GenDate;"

CFeb11 = "SELECT Feb From FebHogs where FebF = 'Feb11' order by GenDate;"

Set c = cd.XYChart(600, 350, &Heeeeff, &H000000, 1)

Call c.setRoundedFrame()

Call c.setPlotArea(55, 58, 520, 195, &Hffffff, -1, -1, &Hcccccc, &Hcccccc)

Call c.addTitle("Daily February Futures", "timesbi.ttf", 15).setBackground( _

&Hccccff, &H000000, cd.glassEffect())

Call c.xAxis().setLabelStep(16)

Call c.xAxis().setlabelstyle("arial.ttf", 8, &H000000, 90)

Call c.xAxis().setTitle("")

'Add a title to the y axis

Call c.yAxis().setLinearScale(0,90)

Call c.yAxis().setLabelFormat("{value|2,.}")

'Call c.xAxis().setLabels(CDate)

' Call c.xAxis().setLabels(dbTable.getCol(3))

' Call c.xAxis().setLabelFormat("{value|mmm dd}")

Call c.xAxis().setDateScale(#2007/2/15 00:00:00#, #2008/2/14 00:00:00#)

Call c.xAxis().setLabelFormat("{value|mmm dd}")

Call c.xAxis().setLabelStep(2)

Call c.xAxis().setlabelstyle("arial.ttf", 8, &H000000, 90)

Set layer = c.addLineLayer2()

Call layer.setLineWidth(2)

Call layer.addDataSet(CFeb11, -1, "2011")

Call layer.addDataSet(CFeb10, -1, "2010")

Call layer.addDataSet(CFeb09, -1, "2009")

Call layer.addDataSet(CFeb08, -1, "2008")

Call layer.addDataSet(CFeb07, -1, "2007")

Call layer.setBorderColor(cd.Transparent, 1)

Response.ContentType = "image/png"

Response.BinaryWrite c.makeChart2(cd.PNG)

Response.End

Error currently being displayed:

ChartDirector error '800a8000'

Error converting argument 1 to type class DoubleArray

/charts/testing100204d.asp, line 71