dim strSQL as string
dim qdf as QueryDef

strSQL = "SELECT * from tblaa" 'tblaa为表
Set qdf = CurrentDb.CreateQueryDef("创建的查询", strSQL)
DoCmd.OpenQuery qdf.Name