Antes que nada porque tienes parentesis en tu query... ??
Cita: cadtexto = ("Update tab_texto Set nombre_titulo=' " + TextBox1.Text + " ',nombre_tema= ' " + TextBox2.Text + " ' , texto = ' " + TextBox3.Text + " ' where id_texto=3367 ")
no sería algo así..(tambien quitando los espacios entre las comillas)
Cita: cadtexto = "Update tab_texto Set nombre_titulo='" + TextBox1.Text + " ',nombre_tema= '" + TextBox2.Text + "' ,texto = '" + TextBox3.Text + "' where id_texto=3367 "
ahora... ya comprobaste que tus textbox tengan valor..??
salu2