身高160左右的男明星:关于asp连接数据库问题 输出记录总数

<%
Dim objConn
Function GetRecordset(FileName, TableName)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open
Set GetRecordset = Server.CreateObject("ADODB.Recordset")
GetRecordset.Open TableName, objConn, adOpenKeyset, adLockOptimistic, adCmdTable
End Function
Function GetSQLRecordset(strSQL, FileName, TableName)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open
Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset")
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
End Function
%>
<%
Dim objRS
Set objRS = GetRecordset("data.mdb", "users")
%>
<%
Do While Not objRS.EOF
Response.Write "<Tr><TD>" & objRS("id") & "</TD>"
Response.Write "<TD>" & objRS("password") & "</TD>"
Response.Write "<TD>" & objRS("name") & "</TD>"
Response.Write "<TD>" & objRS("sex") & "</TD>"
Response.Write "<TD>" & objRS("year") & "</TD>"
Response.Write "<TD>" & objRS("month") & "</TD>"
Response.Write "<TD>" & objRS("day") & "</TD>"
Response.Write "<TD>" & objRS("telphone") & "</TD>"
Response.Write "<TD>" & objRS("cellphone") & "</TD>"
Response.Write "<TD>" & objRS("address") & "</TD>"
Response.Write "<TD>" & objRS("email") & "</TD>"
Response.Write "<TD>" & objRS("url") & "</TD>"
Response.Write "<TD>" & objRS("comment") & "</TD>" %>
<TD><a href="memberdel.asp?id=<% =objRS("id") %>" onclick="javascript:return confirm('确定删除？');">删除</a></TD></tr>
<% objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
这是我的asp连接数据库代码 现在我想要统计数据库的记录总数，请问怎么加？谢谢！