使用 VB 修改注册表实例

这段 VB 代码演示了如何修改注册表中 Jet 4.0 引擎的 MaxLocksPerFile 值。

首先，它会判断系统是 32 位还是 64 位，然后分别读取对应位置的 MaxLocksPerFile 值。

接着，代码尝试将 MaxLocksPerFile 值设置为 99999。如果设置成功，则弹出“设置成功”的消息框；否则弹出“设置失败”。