Question

System.Data.OleDb.OleDbException: 无效的授权说明在vb中 这是什么错误

源代码如下：
Private Sub selectCon()
Dim di As New IO.DirectoryInfo(".")
Dim path As String
path = di.FullName() & "\YHTH_NEW.mdb"
strCon = "Provider=SQLOLEDB;Data Source=" & path
cn = New OleDb.OleDbConnection(strCon)
sql = "select * from test"
da = New OleDb.OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "EnglishTable")
recordN = ds.Tables("EnglishTable").Rows.Count
End Sub

Answer 1

strCon = "Provider=SQLOLEDB;Data Source=" & path

provider 错了 要改为 Microsoft.Jet.OLEDB.4.0