主题：求助:加个筛选条件

Tables("主窗口_table1").Filter= "离店日 = '" & Date.Today() & "' 

Dim Sum2 As Double = Tables("主窗口_table1").Compute("Sum(押金收)")

Forms("主窗口").Controls("TopicBar1").Pages(0).Links(2).text = "今日应退押金 " & sum2 & " 元"

求助:我想再上面再加个条件,不会写哦,那位大侠帮忙写下!!!

条件是:从主窗口_table5 中的(分店)列搜索出 "北京" 然后,在主窗口_table1中查询,北京店离店日是今天的行,再统计出今天北京店一共应该退出多少押金.