点击下载此附件

Private Sub 查看_Click()
    Dim t As Double
    Dim h As Double
    t = Timer
    Me.Text53 = DCount("*", "订单明细") + DCount("*", "产品")
    h = Round(Timer - t, 12)
 '   Debug.Print h
    MsgBox "用时" & h & "秒"
End Sub