＋设为首页 ＋添加到收藏夹
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Debug.Print rs.RecordCount
End Sub
以上是一段从别处摘过来的代码
执行时，在第二行提示，用户定义类型未定义，那么要怎么才能让变量类型database可用呢？
工程->引用->Microsoft DAO 3.51 Object Library即可
引用dao
工程->引用->Microsoft DAO 3.51 Object Library
定义应写成:
dim db as new database
access97为工程->引用->Microsoft DAO 3.51 Object Library
access2000为工程->引用->Microsoft DAO 3.60 Object Library
如找不到Microsoft DAO 3.60 Object Library，请安装vbsp5
