totale_record = rs.RecordCount
o
con una query
SELECT COUNT (*) FROM NOME TAB