rs = d.OpenRecordset(strSQL, IIf(blnSnapShort, dao.RecordsetTypeEnum.dbOpenSnapshot, dao.RecordsetTypeEnum.dbOpenDynaset), IIf(blnReadOnly, dao.RecordsetOptionEnum.dbReadOnly, dao.RecordsetOptionEnum.dbSeeChanges))