[Resolvido]RecoredSet para atualização de estoque

Gente fiz o seguinte código para atualizar o estoque

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Quat As String
Dim strquat As String
Dim quatrs As Recordset
Dim totquant As String
Set db = CurrentDb
Set rs = db.OpenRecordset("TblCadProduto") 'abre a tabela TblCadProduto.

Quat = "select QuantCad from TblCadProduto where 'Código = & me.CodigoProdutoDet'" 'filtra pelo código do número do produto
Set quatrs = CurrentDb.OpenRecordset(Quat)
strquat = quatrs("quantcad") ' carrega as variaveis para o calculo
totquant = Me.QuantidadeDet
rs.Edit
rs("QuantCad") = Me.QuantidadeDet + strquat 'faz o calculo
rs.Update

MsgBox "Registro Salvo com Sucesso.", vbInformation, "MASTER AGRO"
rs.Close
End Sub

este código está no botão adicionar para incluir o produto no estoque.
Eis a minha dúvida, se eu usar no formulário vendas, este código, e ele for executado várias vezes pode ocorrer lentidão no meu sistema?
Aguardo opnião dos colegas,

Obrigado e um abraço cordial

Este código atualizará o estoque do produto a cada venda?

O Código está funcional, porém há uma maneira que considero mais simples...

veja:

CurrentDb.Execute "UPDATE tblProdutos SET tblProdutos.Estoque = TblProdutos.Estoque -'" & Me.txtQtde & "' WHERE tblProdutos.CodigoBarras='" & Me.txtCodigoBarras & "';"

Cumprimentos.

Interessante e pratico acho que vou usar este metodo no formulário de saida.
O código que coloquei acima é para a entrada de produto em estoque.

Este dá para utilizar em ambos, saída e entrada.

Cumprimentos.

ta funcionado blz...

So Faltou clicar no joinha da mensagem que o auxiliou.

Cumprimentos.

Agora naum falta mais
Obrigado

O Fórum agradece o Retorno.