DataReport打印问题

用DataReport打印一数据表代码如下:Private Sub DataReport_Initialize()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Sql As String'连接数据库(Access)
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;" & _
"Data Source=" & VB.App.Path & "\bksj.mdb;" & _
"Persist Security Info=False"Set rs = New ADODB.Recordset
Sql = "select xm from 基本信息表 " 
rs.Open Sql, cn, adOpenKeyset, adLockOptimistic
DataReport1.Sections("Section1").Controls("text1").DataField = "xm"
Set DataReport1.DataSource = rs
End Sub将其打包以后在其它机器上运行时会出现如下错误:运行时错误'-2147024769(8007007f)'
automation错误,但在安装有VB6.0或曾经安装VB6.0的机器上运行时正常。这是我前一个问题的简化，因前一个问题得不到解决，所以只好用这个简化后的问题来请教大家，不知谁能帮忙看一下。