Cita:
Iniciado por u_goldman 
Tranquilo, nada mas te esta diciendo que no tienes un objeto
cmd.Parameters.Append cmd.CreateParameter("rec", adSmallInt, adParamInput, 2, rec)
Creo que ya funciona, pero lo podre checar a conciencia hasta mañana porque tengo que salir a un pendiente.
Creo que existian dos errores, uno el punto que me indicas y el otro me lo daba porque no estaba abierta la conexion o estaba fuera de contexo, revisando otros ejemplos vi esta linea:
Set cmd.ActiveConnection = Conn
la agrege y al parecer funciono, mañana te digo detalladamente si ya quedo.
Muchisimas gracias por tu ayuda, en verdad te lo agradezco :)