Hola friends

resulta que quiero hacer un update a unos campos en particular, estos estan definidos como FLOAT en la base de datos Mysql, pero me sale el siguiente error

error '13' en tiempo de ejecucion
No coinciden los datos

bueno el codigo lo tengo de la siguiente manera

Dim sql_update3 As String
'rs.Close
With rs
valor1 = (CSng(rs.Fields("stock")) + CSng(Text10.Text))
valor2 = (CSng(rs.Fields("stock")) * CSng(rs.Fields("pre_uni")))
valor3 = CSng(Text25.Text)
sql_update3 = "update stock SET stock = " + valor1 + ", pre_uni = " + valor3 + ", pre_tot = " + valor2 + " WHERE prod_cod LIKE '" & Text11.Text & "'"
rs.Open sql_update3, miconexion
End With
End If

ojala me pudieran ayudar muchas gracias