[Resolvido]Comparar campo Valor Moeda vba sql

Boa Noite

Tenho o campo ValorPix para ser comparado e quando for igual fazer o UPDATE
o campo na tabela é tipo moeda
quando faço de forma manual :

DoCmd.RunSQL ("UPDATE TblPix SET TblPix.Descrição = '" & RS1("CodVenda") & "' WHERE TblPix.ValorPix = 15.5")
colocando o valor no caso ai do exemplo de 15.5 da certo

criei uma variável abaixo para formatar o campo e tirar o zero a direita ::

Dim StrValorpix As String
StrValorpix = Replace(Format((RS1!ValorPix), "0.00"), ",", ".")

Do Until Right(StrValorpix, 1) <> 0
StrValorpix = Mid(StrValorpix, 1, Len(StrValorpix) - 1)
Loop

DoCmd.RunSQL ("UPDATE TblPix SET TblPix.Descrição = '" & RS1("CodVenda") & "' WHERE TblPix.ValorPix = '" & StrValorpix & "'")

tinha tudo para dar certo mais da que os tipos de dados são incompatível
desde já agradeço uma ajuda !

Boa tarde, amigos, acertei o código , segue abaixo a solução :::

DoCmd.RunSQL ("UPDATE TblPix SET TblPix.Descrição = '" & RS1("CodVenda") & "' WHERE TblPix.ValorPix = " & StrValorpix)

Solução deixar a variável fora das aspas
Obrigado !