Sql msaccessvba中的查询功能

我必须在MS Access VBA中创建一个查询函数，以便在单击命令按钮时可以轻松调用查询。我的函数如下所示：

    DoCmd.SetWarnings False
    DoCmd.RunSQL StrSQL1

公共函数fCreateQueries（ByVal strQueryToRun As String）作为字符串
作为字符串的Dim strSQL
Dim qryRun As QueryDef
'我的sql语句
strSQL1=“从表1中选择性别、TannerSum、Jahr，其中性别='1'”
使用CurrentDb
设置qryRun=.CreateQueryDef（strQueryRun，strSQL1）
DoCmd.OpenQuery qryRun.Name
.querydfs.Delete qryRun.Name
以
设置qryRun=Nothing
端函数

---

我已尝试调用该函数，但它不会运行。

调用该函数时，什么“不会运行”，函数还是查询

如果查询失败，我将执行以下类型的查询：

    DoCmd.SetWarnings False
    DoCmd.RunSQL StrSQL1

---

删除所有“with CurrentDB”并使用这两行。

为什么要打开一个查询，然后在下一行中删除它？为什么要定期创建/删除？SQL不是动态的，因此建议不要保存为存储查询。