Inserir valores decimais em uma tabela

Pessoal, voltei... http://forum.imasters.com.br/public/style_emoticons/default/blush.gif Porém o meu problema agora é outro... estou fazendo a carga de um arquivo texto para um tabela num bd Acess, porém os valores não esta sendo inseridos corretamente... esta faltando as casas decimais...eis o codigo de inserção...

Cria = "insert into ImportaTexto(CODIGO, [Descr], Valor)" & "Values(" _              & Val(A(0)) & ",' " & A(1) & " ',  " & CDbl(A(2)) & " )"este é o resultado deste insert...

> insert into ImportaTexto(CODIGO, [Descr], Valor)Values(40150,' ACES DESCANCO DE CABECA IMP HP 840C ',  1500 )

vejam o ultimo valor (1500) este no arquivo como (15.00)e aparece no bd como R$ 1500,00...como acerto isto?? alguem sabe :( Agradeço a ajuda pessoal ... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif