[Resolvido]Botão dentro do Formulário para executar um comando SQL

Boa tarde Srs!

Tenho um comando dentro de um formulário, porém está dando um erro Eram esperados 1.

preciso atualizar os preços da Tbl_GerarCartas_Corpo, lista, codproduto, preço And Lockedprice = false

   Me.Refresh
   Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset("TBL_PREÇOS")
   rs.MoveFirst
   Do While Not rs.EOF
   CurrentDb.Execute "UPDATE QryMain_Adm_AtualizarPreços_Sub SET Preço = '" & rs!preço & "' WHERE Codproduto = '" & rs!codproduto & "' And lockedprice = False"
   'CurrentDb.Execute "UPDATE TBL_CLIENTES SET TaxaDolar = '" & rs!ValorDolar & "',PropostaValida = '" & rs!DataProposta & "',Assunto = '" & rs!AtualizarAssunto & "'"
   rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing

boa tarde Srs.

Consegui fazer a atualização via sql


On Error GoTo Trata_Err
Dim strmsg As String
Dim iResponse As Integer
Dim rs As DAO.Recordset

strmsg = "ATENÇÃO!" & vbCrLf & vbCrLf & _
"Este procedimento afetará TODAS as Cartas de Preços, exceto os produtos que estiverem com Bloqueio de preços ativo." & vbCrLf & vbCrLf & _
"Confirmar atualização?"

iResponse = MsgBox(strmsg, vbInformation + vbYesNo, "SQL")

If iResponse = vbYes Then

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_preços")
rs.MoveFirst
Do While Not rs.EOF
CurrentDb.Execute "UPDATE TBL_GERARCARTAS_CORPO SET preçovenda = '" & rs!preço & "' WHERE Codproduto = '" & rs!codproduto & "' And lista = " & rs!lista & " And Lockedprice = false"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me.FrmListaPreços.Requery
Me.FrmListaPreçosSub.Requery
MsgBox "Processamento realizado com sucesso.", vbInformation, "SQL"

' formstatus
Me.formstatus.Value = "Processamento realizado com sucesso."
Me.formstatus.ForeColor = RGB(0, 0, 0)

ElseIf iResponse = vbNo Then
Else
End If
Exit Sub

' tratamento de erros
Trata_Err:
Call ErrSQL

finish