Access以只读方式打开数据表或查询

   DoCmd.OpenTable "表名", , acReadOnly

    DoCmd.OpenQuery "qry生产进度", , acReadOnly

Access以新增方式打开数据表或查询

    DoCmd.OpenTable "表名", , acAdd

    DoCmd.OpenQuery "qry生产进度", , acAdd