ERROR!! de Microsoft VBScript en tiempo de ejecución (0x800A01A8)

[Ju4ncho]

Hey! espero que todos esten bien y bueno aqui les dejo una duda que me surgió haciendo un foro y bueno en esta funcion me da este error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'oCmd.ActiveConnection'
/discus/forums/inc/utility.asp, línea 73

Esta es la funcion a la que esta llamando:

function GetStoredProcedure(oConnection, sName)
Dim oCmd
Set oCmd = Server.createobject("ADODB.Command")
Set oCmd.ActiveConnection = oConnection (linea 73)++
oCmd.CommandText = sName
oCmd.CommandType = adCmdStoredProc
Set GetStoredProcedure = oCmd
end function


por favor ayudaaaa!! :-p