[Resolvido]Atualizar o mesmo registro que se repete na mesma tabela

Prezados boa tarde / boa noite !

Preciso realizar uma atualização de preços de um mesmo produto em uma tabela.
É pegar a descrição que o produto e atualizar o preço do mesmo em toda a tabela.

Segue abaixo o código eu usava anteriormente, mas o mesmo atualiza apenas um campo e os demais permanecem com o preço antigo.

Private Sub bt_AtualizaCusto_Click()
On Error Resume Next
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from TblOrcamentoDetalhe Where Descricao = '" & Me.Descricao & "'")
rs.Edit
rs("Valorvenda") = Me.VCompra.Value
rs.Update
rs.Close
db.Close
End Sub

Tem como adaptar o código acima ?

Grato pela ajuda !!

Deixo aqui o código que eu usei para propagar o mesmo preço de um mesmo produto que se repete em uma tabela.

Private Sub bt_AtualizaCusto_Click()
'Desenvolvido por Silvio/Julho2018

Dim rs As DAO.Recordset
Dim Contador As Long
Dim ContaOProgresso As Long
Set rs = CurrentDb.OpenRecordset("SELECT * FROM TblOrcamentoDetalhe WHERE descricao  ='" & Me.Descricao & "'")

If rs.RecordCount > 0 Then
rs.MoveLast
Contador = rs.RecordCount
rs.MoveFirst
End If

For ContaOProgresso = 1 To Contador
rs.Edit
rs("valorvenda") = Me.VCompra
rs.Update
rs.MoveNext
Next ContaOProgresso
MsgBox "OK, Total de: " & Contador & " registros atualizados.", vbInformation, "AVISO"
DoCmd.RunCommand acCmdSave
Me.Requery
End Sub