query en dll

[Andr3s]

Poseeo este codigo en mi dll:

Public Function selectverproductocontador() As Recordset

Dim ConnectionString As String
Dim strsql As String
Dim rs As Recordset


ConnectionString = "Driver={SQL Server};Description=Comsultasonline;SERVER=ANDRES; UID=administrador;PWD=matrix2003;DATABASE=tiendaa3 st"

Queryproducto = Request.QueryString("productId")

Set rs = CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM productos WHERE productId= " & Queryproducto & ""

rs.Open strsql, ConnectionString, adLockOptimistic, adLockOptimistic
Set selectverproductocontador = rs

Dim veces
veces = rs("veces") + 1

rs("veces") = veces
rs.Update
rs.Close
Set contatobjeto = Nothing
Set rs = Nothing

End Function


y en mi página ASP:


<%

Set dscontatobjeto = Server.CreateObject("conection.verproductocontador ")

dscontatobjeto.selectverproductocontador

%>


Al ejecutar mi página asp me da el siguiente mensaje de error:

Object required en la linea

dscontatobjeto.selectverproductocontador


donde esta el problema ¿Se puede recoger el valor del query desde la dll?