ERR SO OCORRE 1 VEZ DEPOIS PARA DE DAR O ERRO O QU

On Error GoTo exibeError:

frmEstrutura.cmdSalvar.Enabled = False
frmEstrutura.cmdCancelar.Enabled = False
frmEstrutura.cmdDeletar.Enabled = True
frmEstrutura.cmdnovo.Enabled = True

mCódigo = txtComponentes.Text

With frmProdutos.ADOPRODUTOS.Recordset
     .MoveFirst
     .Find ("Código = " & mCódigo & " ")
     mPosição = "" & .Fields("Posição")
End With

'Verifica se o código já está cadastrado.
With Me.adoEstrutura.Recordset
   Me.adoEstrutura.RecordSource = "Select * from estrutura"
   Me.adoEstrutura.Refresh
   numReg = .RecordCount
     
   mproduto = Me.txtComponentes.Text
   
   .MoveFirst
<B>'AQUI OCORRE O ERRO</B>
   .Find ("Componente = '" & mproduto & "' ")
   mquantidade = Me.txtQuantidade.Text
    If .EOF Then
        .AddNew
             !Produto = frmEstrutura.txtCódigo.Text
             !ordem = txtOrdem.Text
             !Componente = txtComponentes.Text
             !Tipo = "" & txtTipo.Text
             !Posição = mPosição
             !Observação = "" & Me.txtObservação.Text
             
             If txtTipo = "1" Then
                !Quantidade = txtQuantidade.Text
             End If
             If txtTipo = "2" Then
                !Quantidade = txtQuantidade.Text
                frmProdutos.ADOPRODUTOS.Recordset.Fields("Entr_Futuras") = txtQuantidade.Text
             End If
             
             
             
        .Update
    Else
        MsgBox ("Componente " & mproduto & " já cadastrado."), vbInformation, "Atenção;"
    End If

End With

If MsgBox("Deseja cadastrar outro produto como componente?", vbYesNo, "Cadastrar outro componente?") = vbNo Then
   Unload Me
End If

   Sel = "SELECT * FROM PRODUTOS ORDER BY CÓ“DIGO, GRUPO, DESCRIÇÃO"
   Me.ADOPRODUTOS.RecordSource = Sel
   Me.ADOPRODUTOS.Refresh
   Me.dtgConsulta.Refresh
   
   sel1 = "select * from estrutura where Produto='" & mCódigo & "' "
   frmEstrutura.adoEstrutura.RecordSource = sel1
   frmEstrutura.adoEstrutura.Refresh
   frmEstrutura.dtgEstrutura.Refresh
   
   Me.txtComponentes = ""
   Me.txtOrdem = "0"
   Me.txtQuantidade = ""
   Me.txtTipo = ""
   Me.txtTipo1or2 = ""
   
exibeError:
If Err Then
   MsgBox ("Ocorreu um erro desconhecido, entre em contato com o administrador do sistema " & Err.Number & " " & Err.Description & " " & Err.Source & ""), vbCritical, "Erro: Desconhecido"
End If