将数据库复合条件的值读取到数组，只能看到第一条记录，请帮忙看看

pcm=Request("pcm")
pcm=Split(pcm,",")
For j=0 To UBound(pcm)
Set rs5 = Server.CreateObject("ADODB.Recordset")
sql="select * from kcxx where pcm='"&pcm(j)&"'"
rs5.open sql,cnndb,1,1
ypsl(j)=rs5("ypsl")
response.write ypsl(j)
response.write "<br>"
next
------------------
一下是结果 只能看到第一条记录 为什么不循环呢 实际有多条复合记录的值
2015111911052
ADODB.Field 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/ylxt/ckh_save.asp，行 49