求 統 計 量 可 以 使 用 SQL的 Max、 Min、 Avg等 函 數 。 你 可 以 使 用 Val將 文 本 轉 換 位 數 字 。 如 
     
    Dim dbs As Database, rst As Recordset 
     
    Set dbs = OpenDatabase("mydb.mdb") 
    Set rst = dbs.OpenRecordset("SELECT " _ 
     & "Min(Val(Freight)) AS [Low Freight], " _ 
     & "Max(Val(Freight))AS [High Freight] " _ 
     & "FROM Orders WHERE ShipCountry = 'UK';") 
    這 樣 rst.Fields("Low Freight")就 是 最 小 值 ， 而 rst.Fields("High Freight")就 是 最 大 值 。 
<END>