[Resolvido]Erro SELECT

Bom dia,

Estou tentando fazer o filtro de uma tabela através da instrução SELECT e o que ocorre é que o campo que desejo efetuar o filtro é do tipo moeda com 2 casas decimais.

Quando executo o código dá o seguinte erro: "Erro de sintaxe (vírgula) na expressão de consulta 'Valor Original = 1.136,54'.

Como faço para resolver o problema? Segue código que estou utilizando.

Private Sub ValorOriginal_LostFocus()

Me.Lista21.RowSource = "SELECT Cliente, Nº_Título, Vencimento, ValorOriginal, Desconto, ValorLíquido, CódSacado, Sacado, Tipo, Status FROM tblDps WHERE ValorOriginal = " & CVar(Me.ValorOriginal.Text) & " ORDER BY Vencimento, ValorLíquido"

End Sub

Agradeço a atenção.

Abs

Bom Dia !

O VBA não entende a virgula como pretende, porque a virgula é considerada um delimitador.
Tem de utilizar a função Replace e substiuir a virgula por ponto.



Me.Lista21.RowSource = "SELECT Cliente, Nº_Título, Vencimento, ValorOriginal, Desconto, ValorLíquido, CódSacado, Sacado, Tipo, Status FROM tblDps WHERE ValorOriginal = " & Replace(Me.ValorOriginal, ",", ".") & " ORDER BY Vencimento, ValorLíquido"

Valeu JPaulo agora funcionou direitinho.

Só mais uma dúvida, tem como ele ir filtrando os registros conforme vou digitando os valores?

Grato

Obrigado pelo retorno o forum agradece.

Tem como sim, veja o simples;