添加ADO对象库到工程!
dim conn as connection
dim rs as recordset
set conn=new connection
set rs=new recordset
conn.connectionstring=""
conn.open
rs.activeconnection=conn
rs.open "SQL语句"
此时rs即为你用SQL语句查询到的记录集
………………
………………
……………………数据库操作代码!
rs.close
conn.close
详细可参见MSDN中的recordset和connection对象!