求助，查询问题，高手请进

<% for i=1 to 10

call inseartinto
next

%>

<%
sub inseartinto()
dim db,conn,connstr
db="../pl/Data.mdb"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath(""&db&"")
conn.Open connstr

dim s_ls,s_no,bianhao,xinghao,shuliang,danwei,leibie,beizhu
s_ls=request("s_ls")
s_no=request("s_no")
s_fhdq=request("s_fhdq")
s_shdq=request("s_shdq")
s_zdr=request("s_zdr")
bianhao=request("bianhao"&i)
xinghao=request("xinghao"&i)
shuliang=request("shuliang"&i)
danwei=request("danwei"&i)
leibie=request("leibie"&i)
beizhu=request("beizhu")

if not bianhao="" then
set rs=server.createobject("adodb.recordset")
sql="select * from kucun where 编号='"&bianhao&"'"
rs.open sql,conn,1,1
if not rs.recordcount<>0    then    
response.write"<SCRIPT language=JavaScript>alert('"&bianhao&"库存中没有此产品编号！ ');" 
response.write"javascript:history.go(-1)</SCRIPT>"

elseif not bianhao="" then
set rs=server.createobject("adodb.recordset")
sql="select * from kucun where 编号='"&bianhao&"' and 型号='"&xinghao&"'"
rs.open sql,conn,1,1
if not rs.recordcount<>0    then    
response.write"<SCRIPT language=JavaScript>alert('  库存中没有"&bianhao&" 的 "&xinghao&"号型！ ');" 
response.write"javascript:history.go(-1)</SCRIPT>"



%>
<%
response.end
end if
%>
<%
sql="insert into s_chuku(s_ls,s_no,s_bianhao,s_xinghao,s_shuliang,s_danwei,s_leibie,s_beizhu,s_fhdq,s_shdq,s_zdr)values('"&s_ls&"','"&s_no&"','"&bianhao&"','"&xinghao&"','"&shuliang&"','"&danwei&"','"&leibie&"','"&beizhu&"','"&s_fhdq&"','"&s_shdq&"','"&s_zdr&"')"
conn.execute(sql)
conn.close
set conn=nothing
end if 
end if
end sub
%>
<%
response.write"<SCRIPT language=JavaScript>alert('提交成功！');" 
response.write"javascript:history.go(-1)</SCRIPT>"
%>
查询编号和型号做出来了，请问如何查询库存数量该怎么写啊？先谢了