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

MyconConnectionString 这个参数不对

ConString = "Provider=MicrosoftJetOLEDB40;User ID=admin;Data Source=" & AppPath & "\xDataxlibrary;Jet OLEDB:Database Password=library"

解决这个问题，必须按照VB搜索和加载动态链接的规则放置动态链接文件。规则如下：

1）如果在VB中声明Dll函数时，Lib所指动态链接库文件不带路径而只有文件名，如以下语句所示：

Public Declare Function MyFunc Lib "Mydlldll" (ByVal x As Long) As Long

则动态链接库文件 Mydlldll 必须放置在：

VB程序运行的当前文件夹中

或者，放置在%WinDir\System32%文件夹中（通常为 C:\Windows\System32）

2）如果在VB中声明Dll函数时，Lib所指动态链接库文件带路径名，如以下语句所示

Public Declare Function MyFunc Lib "C:\Mydlldll" (ByVal x As Long) As Long

则动态链接库文件 Mydlldll 必须放置在所指定的文件中，即 C:\中

从出错信息来看，你的窗体中确实存在MSComm1这个控件（或对象），但它并不是Microsoft Comm Control控件（具体是什么就不知道了），由于它不存在CommPort属性，所以就出错并提示“未找到方法或数据成员”了。

这种错误一般发生在这样的情况：

代码是从别的电脑复制过来的，但你的电脑上并没有Microsoft Comm Control控件（一般VB精简版会有这种情况），就会发生这样的错误了。

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