以下代码为什么老在 Cnn.open(CnnStr) 显示 “未找到提供程序。该程序可能未正确安装。”? 已经有引用ADODB.
Imports System.Data.OleDb
Imports ADODB
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim CnnStr As String = "Provider= Microsoft.Jet.OLEDB.12.0; Data Source = D:\dsstock1.mdb"
Cnn.Open(CnnStr)
Dim SelStr As String = "Select * from Agent"
Rs.Open(Cnn, SelStr, 1, 3)
Rs.AddNew("MPN","first one")
Rs.Update()
Rs.Close()
Cnn.Close()