Atualizar todos os registros de um subformulario

Boa tarde, gostaria de uma ajuda.
tenho um um subformulário com base em uma consulta e não estou conseguindo atualizar todos os registro deste subformulário.
Tenho um botão para atualizar e no evento Click coloquei o código:

Private Sub Comando33_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL ("UPDATE TAB_PRODUTO SET PRODUTOQTD=(PRODUTOQTD+(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![QUANTIDADE]))WHERE TAB_PRODUTO.CODPRODUTO=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![CODPRODUTO]);")
DoCmd.RunSQL ("UPDATE TAB_PRODUTO SET PRODUTOVLRUNIT=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![VLRUNIT])WHERE TAB_PRODUTO.CODPRODUTO=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![CODPRODUTO]);")
DoCmd.RunSQL ("UPDATE TAB_PRODUTO SET PRODUTOVLRVENDA=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![VLRVENDA])WHERE TAB_PRODUTO.CODPRODUTO=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![CODPRODUTO]);")
End Sub

e ele atualiza mais apenas 1 registro por vez é preciso esta selecionado para atualizar gostaria de ao clicar atualizar todos os registros existentes no subformulário.

Desde já agradeço a ajuda de todos...

Boa tarde.

DoCmd.RunSQL ("UPDATE TAB_PRODUTO SET PRODUTOQTD=(PRODUTOQTD+(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![QUANTIDADE]))WHERE TAB_PRODUTO.CODPRODUTO=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![CODPRODUTO]);")

O que está marcado em vermelho está certo?

Tente  seguinte.

Código:


Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
.Edit

'Aqui o que quer atualizar

DoCmd.SetWarnings False
DoCmd.RunSQL ("UPDATE TAB_PRODUTO SET PRODUTOQTD=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![QUANTIDADE]))WHERE TAB_PRODUTO.CODPRODUTO=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![CODPRODUTO]);")
DoCmd.RunSQL ("UPDATE TAB_PRODUTO SET PRODUTOVLRUNIT=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![VLRUNIT])WHERE TAB_PRODUTO.CODPRODUTO=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![CODPRODUTO]);")
DoCmd.RunSQL ("UPDATE TAB_PRODUTO SET PRODUTOVLRVENDA=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![VLRVENDA])WHERE TAB_PRODUTO.CODPRODUTO=(FORMULÁRIOS![FORM_COMPRAS]![SUBFORM_DETALHECOMPRA]![CODPRODUTO]);")
DoCmd.SetWarnings True

.Update
.MoveNext
End With
Loop
Set rst = Nothing