Tienes un error de sintaxis, estás usando comillas dobles dentro de las comillas dobles, prueba así:
Código vb:
Ver originalstSQL="update enrute set tip_ejec='1', equip_term='"& equip_term &"', dir_ip_cierre='"& dir_ip_cierre &"' where id_reg="& id_reg &" "