以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  查询窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53515)
--  作者：狂风暴雨狂波
--  发布时间：2014/7/9 16:34:00
--  查询窗口

If Filter > "" Then
    Tables("订单").Filter = Filter
End If

如果没有符合条件的数据，则提示“没有查找的数据”，该如何写代码？请高手赐教！
--  作者：Bin
--  发布时间：2014/7/9 16:36:00
--  
if Tables("订单").rows.count =0 then
  messagebox.show("美数据")
end if