请教:我想实现在"客户简称"下拉框选择客户后,在"客户全名"自动显示出该客户的全名.

我想定义一个函数,在on change里.
如下:
 sub display
  Dim rs
 set rs=server.CreateObject("ADODB.recordset")
  rs.Open "select TXDZ from oa_crm_khxx where khbh=" & skhjc ,conn,1,1
 if not rs.EOF then
  frmxx.khqm.value=rs(0) & ""
 end if
 rs.Close
 
 end sub
但却发现set rs这段都不能执行,为什么?请指教

rs.Open "select TXDZ from oa_crm_khxx where khbh=" & skhjc ,conn,1,1
是不是应该改成这样
rs.Open "select TXDZ from oa_crm_khxx where khbh='" & skhjc&"'" ,conn,1,1

onchange="submit()"