vba sql select结果赋值给变量