第一种方法:
Dim qdfSQL As QueryDef

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

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