Question

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

Private Sub Form_Activate()
Set DataGrid1.DataSource = MyRs
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Dim Mycon As New ADODB.Connection
Dim MyRs As New ADODB.Recordset
Mycon.ConnectionString = "Provider=Microsoft.ACE.OLBD.12.0;" & _
"Date Source=C:\Users\Jachin\Documents\student1.accdb;Persist Security Info=false"
Mycon.Open

End Sub

Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
MyRs.Close
End Sub

Answer 1

Mycon.ConnectionString 这个参数不对
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=" & App.Path & "\xDatax.library;Jet OLEDB:Database Password=library"