这样的代码出错，

yxgyhebo

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

yxgyhebo

?????

zhengjialon

有没有引用DAO3。6？ 并且放在ADO的上面？

yxgyhebo

噢，这样子呀，都怪那教程，没说清楚。。。谢谢。

sea.er

呵呵，有意思