SQlInserta="update set Categoria= '"&Numero&"' where Codigo='"&Vector(i)&"'"
1.- Te falta el nombre de la tabla UPDATE TABLE SET...
2.- Si Categoria es de tipo numerico en la Tabla debes quitar los '
3.- Lo mismo aplica para vector.
Saludos
<center><a href="http://www.forosdelweb.com/comment_usr.asp?usr=urjose">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>