运行时错误 错误 '800a01a8'，帮忙看看，，谢谢

insert into [S_sbb](getdepartmentid,equipmentname,type,specification,unitprice,nation,productername,productid,productdate,buydate,status,getusename,useto,receiptid,usedepartmentid,checked,checker,bak,capitaltype)values('00','','','',,'','','','1980-01-01','1980-01-01','1','','','','00','N','None','','01')
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'ActiveConnection'

/equipments/equipmentop.asp，行 33


33行附近的内容是：
<%
set comm = server.CreateObject("adodb.Command")
set comm.ActiveConnection = conn
comm.CommandText = strSQL
cmm.Execute rows,,1
if(1 = rows) then
response.Write("OK")
else
response.Write("Failed")
end if
%>


还请高手指教！谢谢