update no adminte comas

[guillebomtrasmiti]

ka0stj gracias amigo, tengo que quitarme el sombrero, muchas gracias, me has arreglado lio de trabajo un abrazo...pongo el código por si a alguien le arreglo la vida

Public Sub remplazaeuros()
'Try
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = (" & TextRemplazar.Text & ") where Pts = (" & TextBuscar.Text & ") and NombreFormaPago <> ('TARJETA CREDITO')and Fecha BETWEEN @FI AND @FF"

com.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

adapt.UpdateCommand = com
conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
conexion.Close()
'Catch
'End Try
End Sub