如何用VB获取access数据库中的记录总数

RecordCount 属性
      指示  Recordset 对象中记录的当前数目。返回值返回长整型值。说明使用 RecordCount 属性可确定 Recordset 对象中记录的数目。ADO 无法确定记录数时，或者如果提供者或游标类型不支持 RecordCount，则该属性返回 –1。读已关闭的 Recordset 上的 RecordCount 属性将产生错误。如果 Recordset 对象支持近似定位或书签（即 Supports (adApproxPosition) 或 Supports (adBook) 各自返回 True），不管是否完全填充该值，该值将为 Recordset 中记录的精确数目。如果 Recordset 对象不支持近似定位，该属性可能由于必须对所有记录进行检索和计数以返回精确 RecordCount 值而严重消耗资源。Recordset 对象的游标类型会影响是否能够确定记录的数目。对仅向前游标，RecordCount 属性将返回 -1，对静态或键集游标返回实际计数，对动态游标取决于数据源返回 -1 或实际计数。try  it
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim parm1 As New ADODB.Parameter
Dim parm2 As New ADODB.Parameter
Dim DataPath As String
DataPath = App.Path & "\180record.mdb"Debug.Assert begtime <> Nullbegtime = DateValue(DTPicker1.Value)
endtime = DateValue(DTPicker2.Value)Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";Mode=ReadWrite;Persist Security Info=False"
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
//------------------------------------------------------------
cmd.CommandText = "select count(*) from 180_Contxt where i_Date between ? and ?"
//--------------------------------------------------------------
cmd.CommandType = adCmdTextSet parm1 = cmd.CreateParameter("i_Date", adDate, adParamInput, 10)
parm1.Value = begtime
cmd.Parameters.Append parm1
Set parm2 = cmd.CreateParameter("i_Date", adDate, adParamInput, 10)
parm2.Value = endtime
cmd.Parameters.Append parm2
conn.Errors.Clear
Set rst = cmd.Execute
If conn.Errors.Count <> 0 Then
MsgBox "发生错误!"
Exit Sub
Else
//返回记录数//
MsgBox begtime & "至" & endtime & "共处理投诉单" & FormatNumber(rst.Fields(0).Value, 0) & "张"
End If
If DataEnvironment1.rsCommand1.State = 1 Then
   DataEnvironment1.rsCommand1.Close
End If
With DataReport1
    Set .DataSource = DataEnvironment1
        .DataMember = "Command1"End With
DataReport1.ShowEnd Sub