ลองดูครับ

Public Sub SetQueryRecordSetType(pRecordSetType As Long)
'RecordSetType: 0=DynaSet, 1=Dynaset (Inconsistent Updates), 2=Snapshot

On Error GoTo ErrorHandle

Dim lngQueryCount As Long
Dim lngLoop As Long

    lngQueryCount = CurrentDb.QueryDefs.Count
    
    For lngLoop = 0 To lngQueryCount - 1
        CurrentDb.QueryDefs(lngLoop).Properties("RecordSetType") = pRecordSetType

    Next lngLoop

    Exit Sub
    
ErrorHandle:
    MsgBox "Cannot Set Property for Qeury [" & CurrentDb.QueryDefs(lngLoop).Name & "]", vbOKOnly
    Resume Next
End Sub