运行时错误 ’13‘ 类型不匹配

辛冰

运行下面代码时出现错误，请高手指正：

运行时错误 ’13‘  类型不匹配

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("名单") '将“名单”表读入记录集