Virgula em condição de recordset

Boas galera,

Em um formulário qualquer possuo uma função para efetuar uma alteração em cascata em larga escala em uma tabela, tblPedidoDetalhe.
Nesta Defino o nome da tabela, o campo a ser alterado e a alteração desejada.
Infelizmente por necessitar alterar um campo que possui "," (txtOriginal = 11,1) me é retornado erro pois não é possível filtrar com o critério:

Código:

   txtTabela  = tblPedidoDetalhe
txtCampo = IdentCardapio
txtOriginal = 11,1
txtCampo = 511,1

Dim rs As DAO.Recordset
    Dim F As Integer
    
    
    Set rs = CurrentDb.OpenRecordset("SELECT " & Me.txtCampo & " FROM " & Me.txtTabela & " WHERE " & Me.txtCampo & " = " & Me.txtOriginal & "")
      
        Do While Not rs.EOF
            rs.Edit
            rs(Me.txtCampo) = Me.txtAtual
            rs.Update
            rs.MoveNext
        Loop
    
    rs.Close
    Set rs = Nothing

Erro de sintaxe (Vírgula) na expressão de consulta 'IdentCardapio = 11,1'.

Já tentei utilizar o Replace() mais como o campo irá comparar também não consegui resolver desta forma.

Grato por algum respaldo ou encaminhamento.

Bom dia
Como utilizou o Replace?
Deverá ser assim
Set rs = CurrentDb.OpenRecordset("SELECT " & Me.txtCampo & " FROM " & Me.txtTabela & " WHERE " & Replace(Me.txtCampo,",",".") & " = " & Replace(Me.txtOriginal,",",".") & "")