28,408
社区成员
发帖
与我相关
我的任务
分享
dim sql
sql = "select * from [数据表] where option like '%关键字%'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
'没有查询倒数据
else
'循环输出数据
do while not rs.eof
'输出数据
rs.moveNext
loop
end if