参数太少预期1，记录集问题

Question

我在从MS Access 2010数据库中创建的查询中运行记录集时遇到问题。这是我要运行的代码：Private Sub Command192_Click()Dim recs As StringDim param As IntegerDim rs As RecordsetSet rs = CurrentDb.OpenRecordset("UnitRec_Qry", dbOpenDynaset)With rs.MoveLast.MoveFirstWhile Not .EOFrecs = recs & vbNewLine & !Spara & " - " & !Rec.MoveNextWendEnd WithMsgBox (recs)End Sub这应该输出的是一个消息框，其中包含列表中查询的许多记录。我这样做是为了将它和许多其他记录收集到一个文本文件中，以进行复制和粘贴到一个单独的系统中。目前，我正在运行这段代码，以便将其全部放入一个字符串变量中。我的问题是我遇到了可怕的“参数太少，预期为1”错误。该查询有效，我将其保存到数据库中并进行了测试，并获得了预期的结果。我尝试使用SQL运行记录集：Set rs = CurrentDb.OpenRecordset("SELECT UnitRecommend_tbl.URecID, UnitRecommend_tbl.Spara," _& " UnitRecommend_tbl.Rec, UnitRecommend_tbl.SvyID" _& " FROM UnitRecommend_tbl" _& " WHERE ((UnitRecommend_tbl.SvyID) = [Forms]![SurveyRegister_frm]![SurveyID])" _& " ORDER BY UnitRecommend_tbl.Spara;", dbOpenDynaset)我犯了同样的错误我再次运行它，但是删除了“ WHERE”语句，代码运行得很好，但是给了我表中的每条记录。不是我想要的因此，这些字段可以正常运行，因为数据可以运行。当我调试文本时，SQL中的参数确实显示为正确的参数，在这种情况下，数字4是整数。因此，我在这里不知所措，我在这里搜索了其他帖子，并尝试了这些可能的解决方案（除非我错过了什么）。我也尝试使用dbopensnapshot，仍然没有乐趣。想知道我现在是否在使用正确的代码。任何帮助都会很棒。