使用Querydef更新查询时，VBA中的DCount出现语法错误

任何帮助都将不胜感激。我似乎无法用这个来解释语法。 （Dcount正在抛出错误） 干杯 杰克

Private子命令44_Click（）
Dim数据库作为DAO.Database
将qdf设置为DAO.QueryDef
M_sql=“SELECT TblVocab.[德语单词]，TblVocab.Gender，TblVocab.means，TblVocab.ID，TblVocab.Complete，TblVocab.Booked，TblVocab.Mark，DCount（“[ID]”，“[TblVocab]”，“[ID]
Private Sub Command44_Click()
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef

   
M_sql = "SELECT TblVocab.[German Word], TblVocab.Gender, TblVocab.Meaning, TblVocab.ID, TblVocab.Complete, TblVocab.Booked, TblVocab.Mark, DCount("[ID]", "[tblVocab]", "[ID]<=" & [ID]) " & _
          "FROM TblVocab " & _
          "WHERE(((TblVocab.Complete) = No) And ((TblVocab.R) Is Null Or (TblVocab.R) < 1)) Or (((TblVocab.ID) = 1)) " & _
          "ORDER BY Rnd(ID);"

CurrentDb.QueryDefs("TblRandom").SQL = M_sql
    
Set dbs = Nothing
    
End Sub