用ADO控件查询的问题？

会用adodb吗？
 
select top 1 * from 数据表 where 条件
或select * from 数据表 where 条件
while not rs.eof
rs.movefirst移动到第一条
rs.movelast 移动到最后一条
rs.movenext移动到下一条
wend