关于DAO

Question

Private Sub Command1_Click()
  Dim ws As workspace
  Dim db As Database
  Set ws = dbengine.workspaces(0)
  Set db = ws.opendatabase("D:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb")
  With db
     Print "數據庫名稱:" & .Name
     Print "數據庫版本:" & .version
     Print "數據庫內容是否可修改:" & .updatable
     
  End With
  db.Close
  ws.Close
End Sub请问这样的错误提示怎么解决：
user-defined type not defined 光标指向 workspace   ,database

Answer 1

Dim ws As workspace
  Dim db As Database改成  Dim ws As new workspace
  Dim db As new  Database

Answer 2

我的环境下运行没有错误
VB6.0+SP6+DAO3.51

Answer 3

没问题是DAO没有引用好。。+new 反尔不对了谢谢楼上的两为