Access VBA修改原查询与利用查询创建新查询

‘查询1=“Select * from 表1 where 性别='男'”

Sub 修改查询1()
SQL = "select * from 表1 where 性别='女'"
CurrentDb.QueryDefs("查询1").SQL = SQL
End Sub

Sub 在查询1的基础上创建查询2()
SQL = "select * from 查询1 where 班级='1班'"
Set 创建查询 = CurrentDb.CreateQueryDef("查询2", SQL)
Access.Application.RefreshDatabaseWindow
End Sub