Buscar dados

Pessoal, em um campo da tabela eu tenho gravado u texto que pode estar assim:

0679-02-275-1

ou assim:

0679.02.275-1

ou ainda assim:

0679022751

A pergunta é, em um textbox eu digito qualquer uma dessas opções e o codigo de busca faz a comparação com o que esta gravado no campo, se o numero que digitei é igual ao do campo sem os outros caracteres ele me da o resultado. Como montar essa rotina para comparar os dados?

Tentei assim:

Source = "SELECT REPLACE(REPLACE(Desenho, '.',''),'-','') As NumDesenho ,LM_2 FROM DadosCab WHERE NumDesenho = '" & txtNumero.Text & "' ORDER BY LM_2"

'e assim:

Source = "SELECT Desenho,LM_2 AS Lista FROM DadosCab WHERE REPLACE(REPLACE(Desenho, '.',''),'-','') = REPLACE(REPLACE(" & TxtBusca.text & ", '.',''),'-','')ORDER BY LM_2"
porem deu erro:(Função replace indefinida na expressão)

Essa consulta pelo tal de desenho é feita de vez em quando. Não posso mudar a formatação na gravação pois já existe uma monte de entradas que o usuario digitou esse desenho de varias formas ex:

0679-01-251-1

0679012511

0679.01-251-1

0679.01.251.1 e por ai vai......