请教一个非常简单的问题，你们花一分钟就能解决，在线等待~~谢谢

Question

请问这个语句中 .Find "编号= ' " & Trim(txtInfo(0)) & " '"  双单引号的位置对了吗？  
 不好意思，我没学过VB，但是为了应急，我用vb和sql server做数据库系统，所以里面的一些语言不懂。我编译到这句总是出现黄条条，提示出错：在对应所需名称或序数的集合中未找到项目~~  还请你们帮帮忙~~~ 谢谢了~~

Answer 1

-----.Find "编号= ' " 
' "之间多了1个空格

Answer 2

Private Sub cmdSave_Click()
Dim objCopy As New Recordset, i%
For i = 0 To 6
  If Trim(txtInfo(i)) = "" Then
     MsgBox " 不能为空！", vbCritical, "商品信息管理"
     txtInfo(i) = ""
     txtInfo(i).SetFocus
     Exit Sub
  End If
  Next
  If cmbType = "" Then
     MsgBox txtInfo(i).Text & "商品类型不能为空，可从列表中选择！", vbCritical, "商品信息管理"
     cmbType = ""
     cmbType.SetFocus
     Exit Sub
  End If
  Set objCopy = shop.rsshopInfo.Clone
  With objCopy
    If .RecordCount > 0 Then
      .MoveFirst
     .Find "编号= '" & Trim(txtInfo(0)) & " '"
      If Not .EOF And .AbsolutePosition <> shop.rsshopInfo.AbsolutePosition Then
      MsgBox "编号:" & Trim(txtInfo(0)) & "已被使用，请修改商品编号！", vbCritical, "商品信息管理"
      txtInfo(0).SetFocus
      txtInfo(0).SelStart = 0
      txtInfo(0).SelLength = Len(txtInfo(0))
      Exit Sub
   End If
  End If
 End With
 shop.rsshopInfo.Update
 MsgBox "数据保存成功！", vbInformation, "商品信息管理"
 cmdAdd.Enabled = True
 cmdDelete.Enabled = True
 isAdding = False
 Picture2.Enabled = True
 
End Sub这是保存功能的代码，但是当我把.find这句屏蔽掉的时候，编译通过，难道不是这句错了吗？

Answer 3

在对应所需名称或序数的集合中未找到项目~~  
---------------
你返回的Recordset中，“编号”字段确实存在？

Answer 4

& " '" 后面也多了个空格，单引号前