Myakire o alguien que pueda ayudarme please help!!!!!!

[davidmz23]

disculpa que no haya entendido tus ejemplos, pero intentando uno y otra se me ocurrio hacer esto, es posible de realizarlo asi:
Dim i
TK = Request.Form("TK")
Mesa = Request.Form("Mesa")
Cantidad = Request.Form("Cantidad")

For Each i in Request.Form("subcatagory")

sql1 = "SELECT Valor FROM Tabla2 Where subcatagory = '"&request("i")&"'"
rs1.Open sql1, conexion, 3, 3

Valor = ("&rs1("Valor")&")

sql11 = "SELECT * FROM Mesa1"
rs.Open sql11, conexion, 3, 3

rs.addnew
rs("subcatagory") = i
rs("TK") = TK
rs("Mesa") = Mesa
rs("Cantidad") = Cantidad
rs("Valor") = Valor
rs.update
Next
solo que lo pruebo y me da error en la linea Valor = ("&rs1("Valor")&") donde me dice se esperaba ')'