求助 这个SQL函数 哪里错了?

我写了一个设备管理系统，在增加记录时，我写了一个函数，为什么会出错，请高手指点

表 worker
 ID   ShoolName
 1    城关中学
 2    洲湖中学
 2    洋门中学
表 HaveNum
 ID SchoolID  EquipID   Num
 1   1              1            56
 2   1              2            83

函数是这样的:

<%
  sub Add_school_equi_num(school_name,equi_id,equi_num)
    dim sql
    sql="insert into HaveNum (SchoolID,EquipID,Num) values ((select ID from worker where
SchoolName='"&school_name&"'),"&CStr(equi_id)&","&CStr(equi_num)&")"
    conn.execute sql   
    if err.Number<>0 then
        response.write "<font color=red>"
 err.clear
 response.write "添 加 失 败 !<br>"
        response.write "</font>"
    end if
  End sub
%>

调用程序是这种写的，为什么会出错，请高手指点
         if num>0 then
             call Add_school_equi_num(schoolname,i+1,num)
         end if
  
显示错误是
    conn.execute sql   行出错,应该是 sql 出了问题

源程序下载：(设备管理系统)
[url=http://www.]http://www.[/url]
有哪位修改后请发回一份给我，谢谢
 [email=afliult@]afliult@[/email]
qq:  397437671