求救：打包时数据库的问题

现在用DAO的估计不多了，但还是抱着那么一点点希望，哪位比较熟的帮帮忙吧，实在不想改代码了。前人编写的东东，用到了Access数据库，采用DAO连接数据库，在自己的机子上运行没有问题，打包后在没有装VB的机子上出现两个错误。第一个错误是在一个窗体加载时出现的，判断应该是下面这个语句引起的：
Data1.DatabaseName = CStr(App.Path) & "\db1.mdb"
其中Data1是一个Data控件。
提示错误为：Class not registered. Looking for object with CLSID:{00000010-0000-0010-8000-00AA006D2EA4}.点确定后程序继续运行，在某个操作后出现第二个错误，提示为：Run-time error '429':ActiveX component can't create object.
点确定后程序自动退出。
这个错误是由以下代码中的某一行引起的：
Dim wos1 As Workspace
Dim dbx1 As Database
Dim redb1 As Recordset
Dim red1 As RecordsetSet wos1 = DBEngine.Workspaces(0)
Set dbx1 = wos1.OpenDatabase(CStr(App.Path) & "\db1.mdb")
Set redb1 = dbx1.OpenRecordset("表原始设计数据")
Set red1 = dbx1.OpenRecordset("原始设计数据和热平衡计算")
For j = 0 To 8
  redb1.AddNew
  red1.AddNew
  redb1!名称 = mc1(j)
  redb1!结果 = jg1(j)
  red1!计算结果 = jg1(j)
  red1!序号 = xh1(j)
  red1!名称 = mc1(j)
  red1!符号 = fh1(j)
  red1!单位 = dw1(j)
  red1!公式及数据来源 = gs1(j)
  redb1.Update
  red1.Update
Next
redb1.Close
red1.Close工程的引用有：Visual Basic for applications; visual basic runtime objects and procedures; visual basic objects and procedures; OLE Automation, ExcelCtl Type Library, Microsoft Access 9.0 Ojbcet Library, Microsoft DAO 3.6 Object Library.请各位大侠不吝赐教，感激不尽！！