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

直接上代码示例：

nowdate为日期型变量

strSql = "select DISTINCT 日期 from new_ubi_data ORDER BY 日期 DESC Limit 0,1"
nowdate = AdoConn.Execute(strSql)(0)

在执行SQL查询语句后添加(0)即可