vb高手请进……一个稀奇古怪的问题请教一下

[fengpoer]

实时错误'－2147467259（80004005）'：
无法打开工作组信息文件表'MSysAccounts'

谁碰到过这个问题？这几天头痛死了，所有的access2000数据库都连不上了,下面是一段测试代码，运行到test.open 就跳出此错误，但是对access97连接都没有问题。
而且，程序初期这段代码都没问题的，只是突然在某次打开程序的时候就现这个错误。
Dim test As New ADODB.Connection

On Error GoTo 0
If test.State = adStateOpen Then test.Close
test.Provider = "Microsoft.Jet.OLEDB.4.0"
test.Open "E:\AH-数据清理\lysfile.mdb", "admin", ""
test.Close

[liangyongwen]

可以尝试去微软找一下最新版本的MDAC驱动！

[还想懒够]

你没有加入用户组文件，试连接数据库ConnectionString如下：

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\d.mdb;Persist Security Info=False;Jet OLEDB:System database=C:\dsa.mda

其中d.mdb为数据库文件，dsa.mda为数据库组文件

[rexueqingnian]

你先把你在access2000中按工具然后按数据库实用工具再选择转换数据库再把你的数据库转换成早前数据库版本再连接你的数据库,因为vb中data控件不支持当前版本只支持以前的版本

[hhjjhjhj]

如下就行，没装Access的机子上也能用。
.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=E:\AH-数据清理\lysfile.mdb;Uid=Admin;Pwd=xxxx;"

[fengpoer]

重装vb后，就可以进去，但是在我用winrar压缩后，仍旧出现这个问题。
怀疑真的vb坏了，没有卸载干净，虽然我把注册表删了一遍。

[bladewing]

直接写Connection String，然后Open多好

[liyd1978]

曾经在工作中遇到过这样的错误(只是错误号相同)，
每次打开工程就出错，后来发现原因
是因为某个控件版本太低造成的。

[liwz123]

liyd1978(阿东) 说的有理，呵呵

[yxgsb]

重装VB、再装SP5、再装MDAC

[fengpoer]

上面大头说的方法一切ok。还是直接connection string,然后open。

问题是解决了，谢谢各位。但是死也搞不懂，为什么会出错。

而且，这个程序已经用过几年了，最近一年，一直在用，也没有加过新的控件。只是上次运行程序的时候出现过一次错误，vb关闭了，而且，从打开这个工程开始所有修改过的代码（已经点过n次保存）都回复原样。接着过了没一天，压缩过这个程序后，然后再打开就出错。

只能说vb有bug.......

浪子小管，MDAC做什么用？我从来没用过。另，重装vb,sp5不管用（见上面发言），但是装MDAC就没试过，因为从来没装过。

[fengpoer]

谢谢云轩，我会去找找看；

醉言烟语，我不知道数据库组文件做什么用的，因为我另外一个简单程序也是一样的代码，运行此代码是好好的，而且，就是这个程学我开始运行这段代码也是可以的，而且这几天一直运行的好好的，只是今天晚上一打开就突然出现这个问题。前两天也出现过这个问题，我开始怀疑此程序中的vbp文件坏了，我重新把所有的窗口导出到另外一个程序，结果好了，这几天一直正常，只是今晚上突然不行了。我现在怀疑我的vb有问题（我运行程序的时候vb曾经出错过）。等我明天重新安装vb，再重新导出窗口试试看，有可能vb不稳定。十分感谢你的解答，另盼望告知数据库组文件的作用；

谢谢热血青年。我并没有用data控件；

谢谢大头，我明天试试你的方法。

万分感谢各位的帮助，如解决我会把结果告知各位，再次谢谢了。