我在简体版WIN 2K + VB6.0 + Access2002开发环境编译以下代码运行正常,为什么在繁体版WIN 2K/XP + 繁体版Access2002就出现错误提示:无法打开数据,连接失败,请问题有哪位知道的?急!!!谢谢先!Public Function OpenDB() Dim StrConn
Dim StrPath
Set ObjConn = CreateObject("ADODB.Connection")
Set ObjRec = CreateObject("ADODB.Recordset")
Set ObjRec1 = CreateObject("ADODB.Recordset")
ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.MDB"
End Function
Dim StrPath
Set ObjConn = CreateObject("ADODB.Connection")
Set ObjRec = CreateObject("ADODB.Recordset")
Set ObjRec1 = CreateObject("ADODB.Recordset")
ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.MDB"
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货