如果是当前数据库 直接

currentdb.QueryDefs(“查询名”).SQL

如果是其他数据库 可以用dao 来获取

Dim LocalMDB As Object  ' DAO.Database

   Set LocalMDB = OpenDatabase("C:\ Data.mdb")

   Debug.Print LocalMDB.QueryDefs("查询名”").SQL