propiedad no válida: 'cint'

[Andr3s]

Inserto los valores separados. Haciandolo de la primera forma sigue realizandose bien el proceso:

Sub AddToOrder(nOrderID, nProductID, nQuant)

sqlText = "INSERT INTO itemsordenes " _
& " (orderID, productID, cantidad) values " _
& " ("&nOrderID&", "&nProductID&", "&nQuant&")"
oConn.Execute(sqlText)

End Sub

Ahora lo hago a través del objeto creado y la dll:

Sub AddToOrder(nOrderID, nProductID, nQuant)

Set dnfobjeto = Server.CreateObject("conection.anadircaraorden")
set Application = dnfobjeto.selectanadircaraorden(cint(nOrderID), cint(nProductID), cint(nQuant))

End Sub

me devuelve el error:

Tipo de error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.

en la linea

set Application = dnfobjeto.selectanadircaraorden(cint(nOrderID), cint(nProductID), cint(nQuant))

El código completo es el siguiente pero el primer sub lo procesa correrrectamente:


Sub CreateNewOrder()
Application.lock
if Application("orderID") = "" then
Application("orderID") = 1
end if

intOrderID = Application("orderID")
Session("orderID") = intOrderID

Set infobjeto = Server.CreateObject("conection.anadircarritordenes ")
set Application = infobjeto.selectanadircarritorden(cint(intOrderID) )

Application("orderID") = Application("orderID") + 1
Application.Unlock


End Sub

Sub AddToOrder(nOrderID, nProductID, nQuant)

Set dnfobjeto = Server.CreateObject("conection.anadircaraorden")
set Application() = dnfobjeto.selectanadircaraorden(cint(nOrderID), cint(nProductID), cint(nQuant))


End Sub