select 所选器材 from 表2 where id <>null
do while not rs.eof
instrument=rs("所选器材")
num=rs("人数")
select count(*) as a from 表1 where instrument like '%"&instrument&"%'
on error resume next
rs("人数")=num+1
rs.Update
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
connclose()