来源：爱赛思应用俱乐部 wxjgw

Dim Query1 As QueryDef

CurrentDb.QueryDefs.Refresh　　　　　　　
For Each Query1 In CurrentDb.QueryDefs　　
　　If Query1.Name = "想要删除的查询名称" Then
　　　　CurrentDb.QueryDefs.Delete Query1.Name
　　　　Exit For
End If
Next Query1

来源：爱赛思中国 sunredday

DoCmd.DeleteObject acQuery, "objectname"