用户类型未定义

Question

Public db As Database
Public rsData As Recordset
Sub main()
  Set db = openDatabase(App.Path & "\xscj.mdb")
  Set rsData = db.OpenRecordset("jbxs")
  frmmain.Show
End Sub
运行的时候说说用户类型未定义然后选中的是第一行，这是什么原因啊？谁可以帮我解答一下啊？我的QQ号598790944谁知道啊，帮帮我！

Answer 1

在工程/引用中添加对dao的引用。

Answer 2

自从有了ADO，几乎没有人用DAO了。lz一定是从一本96年或者97年出版的，发黄的书上抄来这么古老的程序

Answer 3

1。添加引用
2。试试看
Public db As Database
Public rsData As Recordset
Sub main()
  set db=new database
  set rsdata=new recordset
  Set db = openDatabase(App.Path & "\xscj.mdb")
  Set rsData = db.OpenRecordset("jbxs")
  frmmain.Show
End Sub

Answer 4

菜单:工程->引用 找 Microsoft DAO 3.6 ................