在Excel VBA中将SQL查询的结果赋值给变量的方法