textbox一直出現第一筆值但有閃過選取的開窗值

Sub part_no_b2_onclick()
call CW_LW_supply("part_no2_onchange","part_no2")

End Sub

Sub part_no2_onchange()

 
dim ADC,objDB
set ADC = CreateObject("RDS.DataSpace")
set objDB = ADC.CreateObject("EF2KPublic.Database", "<%=Session("http")%><%=Request.ServerVariables("SERVER_NAME")%>")
strConn="<%=Application("Tiptop_ConnStr")%>"
strSQL = "select pmc081,pmc14,pmc30,pmc01 from cwprod.pmc_file "
        '原因在於strSQL沒有WHERE值因此都會選擇到第一筆的值因此必須加入where 那個欄位的名稱因此必須寫成如下
    'strSQL = "select pmc081,pmc14,pmc30,pmc01 from cwprod.pmc_file where pmc01='"& document.all("part_no2").value &"'"
set rs = objDB.CreateRecordsetB(strSQL,strConn)
if rs.recordcount>0 then
document.all("part_no2").value=rs("pmc01").value
else
document.all("part_no2").value=""
end if
rs.close
set rs=nothing

End sub