!AYUDA!..Stored procedures SQL 2000 con FWH 8.10

[mchumpitazv]

Saludos a Todos

En verdad agradeceria muchisimo que alguien me pueda ayudar con mi petición como mencione en un mensaje anterior ya llevo varios dias intentando entrar en el mundo de SQl con FWH8.10(me alegra tenerlo) y xharbour necesito cargar el resultado obtenido desde un store procedure(MS SQL 2000) en un recordset, he navegado tratando de encontrar la forma de hacerlo y aun no logro lo que deseo. la parte en concreto es la siguiente:
// ---- Conexion al SQL -------
oConnection := TOleAuto():New( "ADODB.Connection" )

TRY
oConnection:Open("Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=Martin;Initial Catalog=APPLOCAL;Data Source=PERLIM_SYS_LCH")
CATCH oErr
MsgAlert( "Error de CONEXION con la Base de Datos..." )
FreeLibrary(hRec)
RETURN nil
END TRY
oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := adOpenDynamic
oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oCmd:= TOleAuto():New( "ADODB.Command" )
oCmd:CommandType := adCmdStoredProc
oCmd:CommandText:= "sp_Menu"
oCmd:Activeconnection:=oConnection
oRs:Open(oCmd:Execute())
MsgAlert(oRs:RecordCount())

y el resultado que me muestra la ultima linea es (-1) con lo cual concluyo que el store no se ejecuta, el store sp_Menu es algo simple y es como sigue:
CREATE PROCEDURE sp_Menu
AS
SELECT * FROM MLC00 ORDER BY CNIV, COPC
GO

Estare a la espera de una idea sobre mi error a la hora de realizar la ejecución del comando ó si alguien ya trabajo este tema que me pueda orientar con algun ejemplo operativo

!Muchas gracias a Todos!

Saludos

Luis