no me hace el update

[tienda]

por que este update no funciona para cifrás de más de 1.000 ...por favor...si la cifra es 100 o 30 o 400 lo hace bien..si no no marca ningún error pero tampoco lo hace?¿?

Dim todo As Decimal = 0
todo = -1567
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand
MessageBox.Show(CStr(todo))
com.CommandType = CommandType.Text
com.CommandText = "UPDATE HistoricoTickets SET Producto = '" & TextVarios.Text & "', Euros = (" & todo.ToString.Replace(",", ".") & ") where Euros = @FI and Id = @FA"

com.Parameters.AddWithValue("@FI", DgGenerados.CurrentRow.Cells(6).Value)
com.Parameters.AddWithValue("@FA", DgGenerados.CurrentRow.Cells(0).Value)

adapt.UpdateCommand = com
conexion.Open()
com.ExecuteNonQuery()
conexion.Close()

[ramirezmario7]

Hola.
Lo mas probable es que sea el formato el que esta sacando problemas.
prueba sin el Replace que tienes.

recuerda utilizar try catch para controlar los errores