Why am i getting this error:ADODB.Command (0x800A0E7D)

Why am i getting this error:
Error Type:
ADODB.Command (0x800A0E7D)
Requested operation requires an OLE DB Session object, which is not supported by the current provider.
/DIET/forum/diet/swiffchart.asp, line 26

Here is the asp file:
<%@Language = VBScript %>
 <%' use this meta tag instead of adovbs.inc%>
 <!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
 <%
    Response.Expires= 0
    Dim currentweight, d_date
    Dim Cnxn, strCnxn
    Dim rs, strSQL
          strCnxn= "db1.mdb"
    strCnxn= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strCnxn
    Set Cnxn= Server.CreateObject("ADODB.Connection")
    Cnxn.Open strCnxn,1,3,1
    Set Cmd= Server.CreateObject("ADODB.Command")
    Cmd.ActiveConnection= Cnxn
    strSQL = "SELECT * From Weight"
    Cmd.CommandText = strSQL
    Set rs= Cmd.Execute
    currentweight = ""
    d_date = ""
     rs.MoveFirst
    While Not rs.EOF
       currentweight = currentweight & rs.Fields(0).Value & ";"
       d_date = d_date & rs.Fields(1).Value & ";"
       rs.MoveNext
    Wend
    Cnxn.Close
    Set Cmd = Nothing
    Set rs = Nothing
    Set Cnxn = Nothing
    currentweight = Left(currentweight, Len(currentweight) - 1)
    d_date = Left(d_date, Len(d_date) - 1)
      Dim chart
    Set chart= Server.CreateObject("SwiffChartObject.ChartObj")
    chart.SetSeriesCaption 0, "Weight"
    chart.SetSeparators ";", true
    chart.SetcurrentweightFromString currentweight
    chart.SetSeriesd_dateFromString 0, d_date
       chart.SetTitle "Weight chart"
       chart.LoadStyle "swiff.scs"
    chart.ExportAsResponse
      Set chart= Nothing
    Response.End
%>