在VB中应用mapobject时用AddRelate,打包后有些电脑关联不了

[ydypp]

DB采用的是ACCESS
tbl.Database = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\datasys.mdb;"
FrmMain.Mapmain.Layers(tname).AddRelate "theid", tbl, "theid", relWorked

[贝隆]

我一般是这样连接数据库的：
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'函数功能：连接指定的数据库
'参数说明：cnnP：数据库连接对象；
' ：adoP：数据集存储对象；
' ：strPath：数据库路径；
' ：strPassword：数据库密码；
'返回说明：True：连接成功 False：连接失败
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Public Function funConnectDataBase(cnnP As ADODB.Connection, adoP As ADODB.Recordset, ByVal strPath As _
String, ByVal strPassword As String) As Boolean
On Error GoTo errFunction
Set cnnP = New ADODB.Connection
Set adoP = New ADODB.Recordset
cnnP.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnP.Open "Data Source = " & strPath & ";jet oledb:database password=" & strPassword
funConnectDataBase = True
Exit Function
errFunction:
funConnectDataBase = False
End Function

[ydypp]

数据库联接没有问题,可以反回数据,但是程序打包后,有些机器关联不了,但查数据库可以.

[ydypp]

怀疑可能是一定要安装ACCESS2000