.Fields找不到工程或库！！

Question

一运行到.Fields就停止，出现“找不到工程或库”的对话框。
=================
Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        If mrc.EOF = False Then
            With mrc
                For intCount = 0 To 8
                    If Trim(mrc.Fields(intCount) & " ") <> "" Then
                        txtItem(intCount) = .Fields(intCount)
                    End If
                Next intCount
               
            End With
            txtItem(0).Enabled = False
        End If
        mrc.Close
        Me.Caption = Me.Caption & "修改"

Answer 1

upupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupup

Answer 2

工程－引用，看里面有没有引用ADO2.x，另外，DAO中也有Fields对象，也许你上面的函数是针对ＤＡＯ的，把两个都看看。

Answer 3

好深奥
(mrc.Fields(intCount) & " ")   干什么还要连" "?

Answer 4

你必须引用DAO才可以运行，引用后试试，不行再说

Answer 5

肯定不是引用的问题，如果是引用的问题，那在  If mrc.EOF = False Then这里就会报错。
检查一下
1、字段总数
2、各字段的类型

Answer 6

jjkk168(老加班的人--每日要顶二十贴)
------------------------------------
同意