高手帮忙看下代码

hahajing

帮忙看下这段VBA源码，我怎么不能用
帮忙看下这段VBA的源码---我怎么不能用
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 = "值列表"
100 Me.姓名列表.RowSource = MyName(0)
For intI = 1 To 3
Me.姓名列表.RowSource = Me.姓名列表.RowSource & ";" & MyName(intI)
Next intI
End Sub
这段源码我从access xp上没有办法使用，系统提示：当执行到

Set recName = db.OpenRecordset("名单") '将“名单”表读入记录集

系统提示：类型不匹配！请各位高手指点一下！

崔延东

在Access2000上没问题。我刚试验了

NeilChen

在VBA环境下引用DAO3.X，并且将此引放到最前面，试试

[此贴子已经被作者于2003-8-25 15:07:17编辑过]

hahajing

多谢3楼的高手指点呀！！！！！！问题已经解决了，多谢！！！不胜感激啊！