如何使ACCESS的记录个数显示在TEXT里呢?

在ACCESS里的自动编号好象并不能显示实际统计数字呢?

Dim Db As Database
Dim Rs As Recordset
Set Db = OpenDatabase(数据库)
Set Rs = Db.OpenRecordset(表)
if rs.RecordCount <>0 then rs.movefirst
text1.text=rs.recordcount

set rs=nothing

set db=nothing