Run-time error'3251':
提示：Method 'Item' of object 'Users' failed


Dim catDB As ADOX.Catalog
catDB.Users(2).SetPermissions "用户信息", adPermObjTable, adAccessSet, adRightRead
catDB.Users("新用户").SetPermissions "用户信息", adPermObjTable, adAccessSet, adRightRead

问题出在哪里？

[解决办法]
看你的代码,好像catDB没有初始化吧.
另外,"用户信息",有没有这个对象呢
[解决办法]
帮顶一下。。。。。。。。。
[解决办法]
项目不存在啊！...............