SQL - Update Vbasic 5

Hola amigos, estoy trabajando con una vbasic 5 y estoy trajando con una tabla, pero no puedo modificar los 2 campos respectivos.

Este es mi codigo:

cod_y = TextCod.Text
des_y = TextDesc.Text

StrSql = "UPDATE pry_tipo_costo SET tco_descripcion=" & des_y ",toc_codtco="&cod_x& "WHERE tco_codtco=" & cod_x

Dbproyecto.Execute (StrSql)

En que estoy mal. ya que me da un error en el codigo cuando quiero modificar los 2 campos, estara bien el codigo.

gracias.

Cuando trabajas con variables de cadena debes agregar apostrofes para que no tome el contenido como el nombre de otra variable, ademas te hace falta un & y no olvides los espacios alrededor de los &´s:
StrSql = "UPDATE pry_tipo_costo " & _
"SET tco_descripcion = ´" & des_y & "´," & _
" toc_codtco = " & cod_x & _
" WHERE tco_codtco=" & cod_x
utilza debug.print para observar como queda la instruccion