virgulas ao gravar no BD

[Fly1]

ESTE E O CODIGO DO BOTAO GRAVAR, mas esta dando um erro se eu formatar os campos do tipo

Private Sub cmdGravar_Click()


txtID.Text = ContarRegistros

'  If txtManutencao.Text = Empty Then
'  txtManutencao.Text = 0
'  End If
'
  If txtValorPeca.Text = Empty Then
     
     txtValorPeca.Text = 0
  
  End If
  
  nManutencao = CDbl(txtManutencao.Text)
  nAcrescimo = CDbl(txtAcrescimo.Text)
    sManutencao = CDbl(txtManutencao.Text)
    sAcrescimo = CDbl(txtAcrescimo.Text)

    nManutencao = CDbl(Replace(sManutencao, ".", ","))
    nAcrescimo = CDbl(Replace(sAcrescimo, ".", ","))
    ntotalOleo = CDbl(txtTotalConsumoOleo.Text)
'ou nvalor = cdbl(txtmanutencao.text)

    ntotalOleo = nManutencao + nAcrescimo
    stotalOleo = nManutencao


  ntotalOleo = Replace((txtTotalConsumoOleo.Text), ".", ",")

  
  '''''''''''''''''''''''''''''''''''''
  txtManutencao.Text = (Replace(txtManutencao.Text, ",", "."))
  txtAcrescimo.Text = (Replace(txtAcrescimo.Text, ",", "."))
  txtTotalConsumoOleo.Text = (Replace(txtTotalConsumoOleo.Text, ",", "."))
'
'
'  ''''''''''''''''''''
txtPercOleo.Text = Replace(Format(txtPercOleo.Text, "0.00"), ",", ".")
txtPercGasoleo.Text = Replace(Format(txtPercGasoleo.Text, "0.00"), ",", ".")
txtPercOleoGasoleo.Text = Replace(Format(txtPercOleoGasoleo.Text, "0.00"), ",", ".")
txtPercKmDia.Text = Replace(Format(txtPercKmDia.Text, "0.00"), ",", ".")
   
'''''''''''''
      GravarDados
      txtID.SetFocus
End Sub

Editado Maio 16, 2008 por kuroi
Adicionar tag CODE

[kuroi]

mas fly, o erro ta nessa sub ou na sub GravarDados??

pelo q parece, em alguns campos, você ta substituindo ponto por virgula. acho q é melhor deixar ponto.

mas se continuar o erro, poste a descricao da mensagme q aparece e aponte a linha do erro.

alias, SEMPRE q você for postar, poste junto a descreicao do erro, o codigo todo da sub e aponte qual a linha onde o erro ocorre.