Sql MS VBA Access插入值和函数帮助请求

我是VBA新手。我试图将数据从一个表单插入到一个表中。我遇到了以下代码的问题：

strSQL = "Insert into [KitInfo](KitID, KitType, ExpirationDate) values(Forms!CreateNewKit!KitID, 'HS2000', dmin([ExpirationDate]))"

我正在尝试将当前表单中的最短日期插入表KitInfo的“ExpirationDate”列。有没有办法计算最短日期，然后将其插入“ExpirationDate”列？我想嵌套一个子查询，但我不知道怎么做。我曾尝试将“值”更改为“选择”，但该查询根本无法运行

要求您告诉它数据所在的位置。为函数的第二个选项“域”使用表或已保存查询的名称。有关更多详细信息，请查看Access“帮助系统”中的Application.DMin方法主题

在Access查询设计器中创建查询以计算语法

插入到[KitInfo]
（KitID、KitType、到期日期）
价值观
（Forms！CreateNewKit！KitID，'HS2000'，DMin（'ExpirationDate'，'YourTable'））

用表的名称替换表

---

在查询设计器中正确运行

INSERT

后，更新VBA代码以创建相同的语句。

表单的记录源是查询还是表？记录源是表。