求助：代码为何出错，在线等！！

cmsj

access老是提示If rst.Fields("编号").Value = rst1.Fields("编号").Value Then这句代码出错，请问正确的应该如何编写？？谢谢先。 Private Sub aa() Dim cnn As ADODB.Connection, rst As ADODB.Recordset, rst1 As ADODB.Recordset Set cnn = New ADODB.Connection: Set rst = New ADODB.Recordset: Set rst1 = New ADODB.Recordset Dim i As Integer i = 0 cnn.Open "provider=microsoft.jet.oledb.4.0;" & _ "data source=c:\db1.mdb;" rst.Open "附件", cnn rst1.Open "附件1", cnn rst.MoveFirst Do Until rst.EOF rst.MoveNext rst1.MoveFirst Do Until rst1.EOF If rst.Fields("编号").Value = rst1.Fields("编号").Value Then i = i + 1 End If rst1.MoveNext Loop Loop rst.Close Set rst = Nothing rst1.Close Set rst1 = Nothing cnn.Close Set cnn = Nothing Debug.Print i End Sub

ycyhjj2865

把例子发上来，看看是什么错误。

cg1

关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
在技术论坛提问的技巧《其他》
http://access911.net/index.asp?u1=a&u2=72FAB61E17DCE7F3

----------------------- 911 社区回帖个人签名 start -----------------------

http://access911.net/csdn 无须注册提供附件上传功能，如果你提问的时候有附件请到上述地址上传并将链接复制粘贴。

http://access911.net 用 7 年时间整理了大量有关 Access 的原创资料，请有空的时候多用文章搜索功能

如果您有兴趣加入ACCESS编程的专项研究可以来QQ群“ACCESS上海研究班”看看，加入的方法请看这里《个性化的access911.net（七）QQ 群加入规则（专门讨论 ACCESS 的 ）》
http://access911.net/?kbid;72FAB01E16DCECF3

----------------------- 911 社区回帖个人签名 end -----------------------

向上看呦！