我的也是：错误信息0x80040E0C，没有为命令对象设置命令

我的作业运行到这个页面，红色字段一行：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="public/appsetting.asp"-->
<!--#include file="public/ado.asp"-->
<!--#include file="public/components.asp"-->

<%
   dim  id,sql,uid
   id=request.QueryString("pid")
   uid="GetCustomerID()"
   
   sal="delete from t_shopcar where c_code="& uid &" and p_code="& id
   datasource.ExecuteCommand(sql)
   
   Set datasource=Nothing
   response.Redirect("shopcar")
%>

 然后就跳转的到这个页面： 光标停在蓝色字段出：显示  
    '执行命令
    Public Sub ExecuteCommand(sql)
        Set cmd = server.CreateObject(")
        Set cmd.ActiveConnection = con
        ' = CommandTypeValue.
         = sql
       cmd.Execute
    End Sub



Microsoft JET Database Engine
错 误 码：0x80040E0C

错误代码：cmd.Execute
错误描述：没有为命令对象设置命令。