vba sql聚合查询结果赋给一个变量