我用如下代码,可以实现连接ACCESS2000或2002版 Public Const MaxRecNumber = 200 Public Con As adodb.Connection Public rs As adodb.Recordset Public str As String Public strv As String Private Const ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" Public Sub main() Set Con = New adodb.Connection Dim ccc As String ccc = App.Path If Len(ccc) > 3 Then ccc = ccc + "\" ccc = ConStr + ccc + "data.mdb" Con.ConnectionString = ccc Con.Open frm_main.Show
解决的办法就是打Sp4以上的补丁或到微软的网站下载JET40andDAo36.exe升级程序
用ADO连接应该不出现不识别问题。
Public Const MaxRecNumber = 200
Public Con As adodb.Connection
Public rs As adodb.Recordset
Public str As String
Public strv As String
Private Const ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="
Public Sub main()
Set Con = New adodb.Connection
Dim ccc As String
ccc = App.Path
If Len(ccc) > 3 Then ccc = ccc + "\"
ccc = ConStr + ccc + "data.mdb"
Con.ConnectionString = ccc
Con.Open
frm_main.Show