关于“声明数据库对象变量”的问题

sun_ocean

为什么无法声明数据库对象变量？
我根据网上的一个例子，输入完全相同的代码（代码如下），当然窗体控件也完全相同。可是打开窗体的时候，显示代码出错。"Dim db As Database"这一句有问题，在写入代码时"database"也不会自动跳出。

Option Compare Database

Private Sub Form_Load()
   
    Dim db As Database '声明数据库对象变量
   
    Dim recName As Recordset '声明记录集对象变量
   
    Dim strName As Field '声明字段对象变量
   
    Dim MyName(3) As String '声明一个存放“姓名”的数组
   
    Dim intI As Integer '声明一个整型变量
   
    Set db = CurrentDb() '制定数据库为当前数据库
   
    Set recName = db.OpenRecordset("名单") '将“名单”表读入记录集
   
    Set strName = recName![姓名] '指定记录集“姓名字段”
   
    intI = 0
   
    Do Until recName.EOF
   
    MyName(intI) = strName '将“姓名”字段读入数组
   
    intI = intI + 1
   
    recName.MoveNext '读取记录集的下一行记录
   
    Loop
   
    '一下为将数组赋给姓名列表的代码
   
    Me.姓名列表.RowSourceType = "值列表"
   
    Me.姓名列表.RowSource = MyName(0)
   
    For intI = 1 To 3
   
    Me.姓名列表.RowSource = Me.姓名列表.RowSource & ";" & MyName(intI)
   
    Next intI
   
End Sub

zhuyiwen

这是没有引用“Microsoft DAO 3.60 Object Library”的缘故。

解决办法：在VBA编辑器中引用“Microsoft DAO 3.60 Object Library”，并将它尽量上移.

[em24]

lijiawy

access2000默认的是ado,所以要用dao必须引用

sun_ocean

我用的是access 2002。能不能说得详细一点，如何引用，因为我比较菜，谢谢。

yangzn

在任一编程代码模块编辑时在”工具“菜单->“引用” 对话框 中选中 “Microsoft DAO 3.6 Object Library"即可

sun_ocean

谢谢！
另外请教一下，ado和dao是什么东西，为什么要引用？
而且，引用后
“Set recName = db.OpenRecordset("名单") '将“名单”表读入记录集”
这一句又出问题了。