numeros decimales

[davidmz23]

Dim Valor

TK = Request.Form("TK")
Mesa = Request.Form("Mesa")
Cantidad = Request.Form("Cantidad")
subcatagory= Request.Form("subcatagory")

FOR i = 1 to request.form("subcatagory").count
sql1 = "SELECT Valor FROM Tabla2 Where subcatagory = '"&request("subcatagory").item(i)&"' "
rs.Open sql1, conexion, 3, 3

Valor = (rs("Valor"))
Response.write sql1 & " = " & Valor &" <br>"

sql11 = "INSERT INTO Mesa1 (TK, subcatagory, Mesa, Cantidad, Valor) VALUES ("&TK&", '"&request("subcatagory").item(i)&"', "&Mesa&", "&Cantidad&", "&Valor&")"
conexion.execute(sql11)


esta parte del codigo muestra que la primer consulta toma un valor de un campo de una tabla relacionado con un item seleccionado en un form.

la segunda consulta inserta en un tabla los valores obtenidos del form y el valor de la primer consulta mi pregunta es porque no me toma valores decimales la primer consulta si ambas tablas la de origen y destino poseen misma propiedades (ej decimal, currency) el error que se produce haciendo referencia a la segunda consulta es(esto se produce solo con valores decimales si no las consultas funcionan sin problemas):

Microsoft JET Database Engine (0x80040E14)
El número de valores de consulta y el número de campos de destino son diferentes

alguien sabe que falta yo he probado con formatnumber pero no hubo caso, gracias .