dim rs as adodb.recordset
...
rs.open "select * from sometable",conn,3,1

rs.open "select * from sometable",conn,1,1==>rs.recordcount或者
set rs = conn.execute ("select count(*) 'count' from sometable")
===>
rs('count').value