set cya=conn.Execute("select 名称,mn,拼音 from 成语词典 where 名称 like '"&k1&"%' "&sql2&sql3&" order by 冠,亚,模,newid()"):hha=""do while not cya.eof\x09\x09\x09\x09exit do\x09\x09loopnot cya.

set cya=conn.Execute("select 名称,mn,拼音 from 成语词典 where 名称 like '"&k1&"%' "&sql2&sql3&" order by 冠,亚,模,newid()"):hha=""
do while not cya.eof
\x09\x09\x09\x09exit do
\x09\x09loop
not cya.

没有达到cya的文件末尾