MMmmmmhhh ok, dos cosas, la longitud del entero es 4, son dos enteros cierto?
cmdParameters.Append cmd.CreateParameter("rec", adInteger, adParamInput, 4, rec)
cmdParameters.Append cmd.CreateParameter("cuenta", adInteger, adParamInput,
4, cuenta)
La otra cosa es que no tengas las constantes de ADO, incluye el archivo
Adovbs.inc
Nos cuentas como te fue...