databasename = "qryDataExport"
Dim grpfield As String
grpfield = "Group"
Dim keys As DAO.Recordset
groupcmd = "SELECT [" & databasename & "].[" & grpfield & "] FROM [" & databasename & "] GROUP BY [" & databasename & "].[" & grpfield & "]"
Set keys = CurrentDb.OpenRecordset(groupcmd, dbOpenSnapshot)
以上产生“错误 3061：参数太少。预期为 13。” 运行时。到目前为止，我的阅读已经严重暗示这可能是字段标题不正确的拼写问题或由定义 groupcmd 的行中的不正确引用引起的问题。
我为 databasename 尝试了以下格式：
CurrentDb.Queries.qryDataExport
CurrentDb!Queries!qryDataExport
而以上"qryDataExport"。后两个不提供错误消息，而第一个不编译。我已经确认在主表和 qryDataExport 中都有一个名为 Group 的列。
正在使用的模块来自这个 Google 代码页。
（编辑：截至此时的完整编辑模块：http : //pastebin.com/TJip86ED）
从我所看到的情况来看，我认为这是数据库名称定义中一个非常明显的格式错误，但是我没有足够的 VBA 经验来发现它，而且我的想法已经用完了。任何建议将不胜感激。
EDIT2： …