update no adminte comas

[guillebomtrasmiti]

hola amigos, ultimamente no encuentro muchas respuestas a mis preguntas, espero que hoy si, tengo un update que funciona de la siguiente manera, yo le pongo en un textbox lo que debe buscar en la grilla y en otro por que cifra sustituye lo que encuentra, el caso es que si por ejemplo pongo busca (1) y sustituyelo por (2), genial funciona de miedo, pero si le pongo busca 1,1 y sustituyelo por 1,2 me da error ...y es cuando pong una cifra por comas, sabeis por qué=?=
mi código

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 NombreFormaPago <> ('TARJETA CREDITO') and Pts =ROUND (Pts <> (" & TextBuscar.Text & ")) 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.SelectCommand = com
conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
conexion.Close()
'Catch
'End Try
End Sub