Ultima duda, lo juro

Tengo este código:
Dim carrito
Dim accion
Dim volver
Dim producto
Dim Eleccion
Dim cant
Dim dbTienda
' Si no existe el carrito lo creo
' si existe lo referencio
Eleccion=Request.QueryString("Eleccion")
set dbTienda=Server.CreateObject("ADODB.Connection")
dbTienda.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../BaseDeDatos/Tienda.mdb")
if isobject(Session("carrito")) then
set carrito=Session("carrito")
else
set carrito=Server.CreateObject("Scripting.Dictionary")
end if
accion=CStr(Request.QueryString("ac"))
producto=CInt(Request.QueryString("prod"))
cant=CInt(Request.QueryString("cant"))
Select Case accion
Case "ver"
MostrarCarrito
Case "meter"
MeterArticulo producto
MostrarCarrito
Case "sacar"
call SacarArticulo (producto, cant)
MostrarCarrito
Case "fin"
PasarPorCaja
Case else
'Muestro el catálogo
MostrarCatalogo
End Select
set Session("carrito")=carrito
dbTienda.Close
set dbTienda=nothing
%>
'----------
Sub MeterArticulo (Id)
if carrito.Exists(Id) then
carrito(Id)=carrito(Id)+1
else
carrito.Add Id, 1
end if
Response.Write("Se ha añadido el artículo al carrito<br><br>")
End Sub
'-----------
Y cuando quiero añadir mas unidades de un mismo producto, lo hago asi ("que funciona"):
<a href="productos.asp?ac=meter&prod=<%=RsProducto.fields("IdProducto")%>" ><img border="0" src="../images/mas.png" alt="Añadir una unidad" ></a>
Lo que me gustaría hacer es que al dar al botón fuese al procedimiento MeterArticulo, y aquí capturara las existencias de ese producto (¿select existencias from productos where idproducto=?), en este punto tengo problemas, y no se como solucionarlo.
Si esta muy lioso dímelo y te envío todo el código.
Saludos y 1000 gracias.