在QueryDefs中找不到RecordsetType属性为有效属性

Question

我试图将查询锁定在MS Access 2016前端中，以便用户仅看到查询的快照，而无法编辑SQL代​​码或查询中的数据。但是我的VBA代码遇到了问题：

'Lock queries
For Each oQD In CurrentDb.QueryDefs
    'If Left(oQD.Name, 3) = "qry" Then
    If Left(oQD.Name, 1) <> "~" Then
        Set oProp = oQD.Properties("RecordsetType")
        If Err Then
            Set oProp = oQD.CreateProperty("RecordSource", dbText, "Snapshot")
            oQD.Properties.Append oProp
        Else
            oProp.Value = 2
        End If
    End If
Next oQD

，它将返回运行时错误“ 3270”：找不到“ RecordsetType”的属性。有人可以帮忙吗？