Access中删除与创建查询如何编程？

Private Sub 删除查询_Click()    DoCmd.DeleteObject acQuery, "名称"    Application.RefreshDatabaseWindow '刷新   MsgBox "删除成功！"End Sub Private Sub 创建一个查询_Click()    Set qdf = CurrentDb.CreateQueryDef(" 名称","select * from 表名）     Application.RefreshDatabaseWindow  '刷新   MsgBox "创建成功！"End Sub