MessageBox.Show(FILTER)
‘这个消息正常
If Filter > "" Then
Tables("会员统计报表_table1").Fill("select * from {会员消费表} where 'filter' ",False)
End If