VB6.0 对象访问数据库，运行是显示“未找到提供程序。该程序可能未安装”怎么办

Mycon.ConnectionString 这个参数不对

ConString = "Provider=Microsoft.Jet.OLEDB.4.0User ID=adminData Source=" &App.Path &"\xDatax.libraryJet OLEDB:Database Password=library"

如果相关文件未遭受破坏，则很可能是相关的dll文件的注册丢失所致。此时进行如下简单 *** 作即可。

1.开始 - 运行，输入cmd，回车，此时打开命令提示符窗口。

2.输入如下命令并回车，进行所有dll文件的注册 *** 作

for %1 in (%WinDir%\SYSTEM32\*.DLL) DO RegSvr32.EXE /s %1

for %%1 in (%WinDir%\SYSTEM32\*.OCX) DO RegSvr32.EXE /s %%1

此时再打开控制面板的用户账户就应该恢复正常了。

当未发现系统文件存在问题，而又会出现类似上面的这种奇怪的现象，常常就可能是dll文件的注册丢失所致，此时可使用上面方法做一尝试。导致该现象的原因可能是安装卸载某些软件、中毒等。

---