Visual Basic - UPDATE

HOLA A TODOS

INTENTO HACER UN UPDATE, UTILIZO EL CÓDIGO QUE PRESENTO A CONTINUACIÓN, NO MANDA NINGÚN ERROR PERO CUANDO REVISO EN LA TABLA NO SE HA LLEVADO A CABO LA ACTUALIZACIÓN.

CON EL SELECT CONSIGO EN C_INSUMO (CODIGO DE INSUMO) Y LA ENTRADA_HOY (ENTRADA DE HOY), EL TEXT19 QUE UTILIZO EN EL WERE CONTIENE EL CÓDIGO DEL INSUMO QUE DEBO SELECCIONAR, EL SELECT FUNCIONA BIEN.

LUEGO A LA VARIABLE ENTRA_GUARDA LE SUMO LAS ENTRADAS EXISTENTES + LA QUE QUIERO DARLE.

LA PARTE DE LAS ASIGNACIONES TAMBIEN FUNCIONAN Y AL PARECER EL UPDATE TAMBIEN FUNCIONA YA QUE NO MANDA NINGÚN ERROR, PERO CUANDO REVISO EN LA TABLA NO LO HACE.

SQL = "SELECT c_insumo, entrada_hoy, entrada_acumulada, consumido_hoy, consumo_acumulado, rend_acum FROM consumo WHERE c_insumo = '" & Text19 & "' "
Set rs = con.Execute(SQL)

ver = rs!c_insumo
entra = rs!entrada_hoy
entra_guarda = entra + Text1

SQL = "UPDATE consumo SET entrada_hoy = entra_guarda WHERE c_insumo '" & Text19 & "'"
rs = con.Execute(SQL)

AGRADECIDA DE ANTEMANO POR SU COOPERACION,

LARISA

Intentalo asi

SQL = "SELECT c_insumo, entrada_hoy, entrada_acumulada, consumido_hoy, consumo_acumulado, rend_acum FROM consumo WHERE c_insumo = '" & Text19 & "' "
Set rs = con.Execute(SQL)

ver = rs!c_insumo
entra = rs!entrada_hoy
entra_guarda = entra + Text1

(Intentalo ASI)
SQL = "UPDATE consumo SET entrada_hoy = entrada_hoy + Text1 WHERE c_insumo '" & Text19 & "'"
rs = con.Execute(SQL)

Dudas?, Contactame.