请帮我看看这几行代码

Dim myworkspace As Workspace
Set myworkspace = DBEngine.CreateWorkspace("myworkspace", "admin", " ", dbUseJet)
Dim data1 As Database
Set data1 = DBEngine.myworkspace.OpenDatabase("D:\Program Files\Microsoft Visual Studio\VB98\database\db1.mdb")
运行时错误提示“未找到方法或数据成员”