Error al pasar parametros a una consulta sql

[Trulala de cordoba]

estimados,

tengo un código que me esta dando un error y probe todas las opciones, buscar en google y en foros del web y en google pero no logro solucionar el problema. El error que recibo es este "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.":

Código PHP:

   
 
strConnect = "aca va la cadena de conexion"
id = 12
strSQL = "SELECT campos FROM personas WHERE idpersona= ?" 
dim ObjConn
 
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open strConnect
Set rs = Server.CreateObject("ADODB.Recordset")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = ObjConn
cmd.CommandText = strSQL
cmd.CommandType = adCmdText '// Aca da el error
 
'Aqui vamos a pasar el valor, se necesita crear un parametro para este comando
Set param = cmd.CreateParameter("idpersona", adInteger, adParamInput, 4, id)
cmd.Parameters.Append(param)
 
rs.Open cmd 
   

He probado quitar algunas lineas para asegurarme que este bien el sql y la cadena de conexión, pero no logro funcionar, alguna idea??
gracias

[AlZuwaga]

Hola. Nunca trabajé así pero... no sobran las comillas?

Set param = cmd.CreateParameter("idpersona", adInteger, adParamInput, 4, id)

[Trulala de cordoba]

Iniciado por AlZuwaga

Hola. Nunca trabajé así pero... no sobran las comillas?

Set param = cmd.CreateParameter("idpersona", adInteger, adParamInput, 4, id)

Hola
No, el error me lo da mucho antes:

Código PHP:

  cmd.CommandType = adCmdText // Aca da el error 
   

[u_goldman]

adCmdText es una constante de ADO, trata incluyendo estas constantes: http://www.4guysfromrolla.com/webtech/code/adovbs.txt

Saludos