Access动态修改SQL

Access下用代码动态修改已存查询后面的SQL。

第一种方法:
Dim qdfSQL As QueryDef

Set qdfSQL = CurrentDb.QueryDefs("已存在的查询名")
qdfSQL.Sql = "修改后SQL语句"　
qdfSQL.Close
Set qdfSQL = Nothing

第二种方法:
CurrentDb.QueryDefs("已存在的查询").SQL = "SQL语句"