Dim rst as Recordset Set rst=dbs.OpenRecordset(strTable, dbOpenTable,dbDenyRead)
2.禁止写(dbDenywrite) OpenRecordset方法中的dbDenyWrite常量用来禁止其它用户更新表中的数据,直到关闭该表为止。在这种情况下,其它用户可以查看表中的信息,也可以添加新记录,但不能对其进行修改。当需要向表中插入新记录而又不想修改现有的记录时,可以使用这个常量,它对表和动态集都有效。例如: Dim rst as Recordset Set rst=dbs.OPenRecordset(strTable, dbOpenTable,dbDenyWrite)
用dbDenyRead和dbDenyWrite可以分别禁止对记录集进行读和写,如果既想禁止读,又想禁止写,则可同时使用这两个常量(用“十”号连接)。例如: Dim rst as Recordset Set rst=dbs.OpenRecordset(strTable,dbOpenTable,dbDenyRead + dbDenyWrite)