在线等待，请问如何计算数据库中共多少条记录

数据库连接Set cn = New ADODB.Connection
CnStr = " Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ssq.mdb;Persist Security Info=False"
cn.Open CnStr
Set rs = New ADODB.Recordset
sql = "select * from 数据统计 order by id"
rs.Open sql, cn不用穷举的方法，希望能有个属性或者函数解决此问题：）