[求助] 如何在QTP中创建ACCESS数据库引擎

我参考了一下QTP samples plus中的一段代码（如下），但是运行时系统总是提示“Activex不允许创建"DAO.DBEngine.35"对象 ”，不知哪位高手可否帮忙，告诉我一下到底应该怎么办？
注：我安装的是QTP9.0/ACCESS2003


Dim MyDB

Dim MyEng

Set MyEng = CreateObject("DAO.DBEngine.35")

Dim Td

Dim rs

' Specify the database to use.

Set MyDB = MyEng.OpenDatabase("BIBLIO.MDB")

' Read and use the name of the first 10 authors.

Set Td = MyDB.TableDefs("Authors")

Set rs = Td.OpenRecordset

rs.MoveFirst

For i = 1 To 10

       Browser("Book Club").Page("Search Books").WebEdit("Author Name").Set rs("Author")

       Browser("Book Club").Page("Search Books").WebButton("Search").Click

Next