28,409
社区成员




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