Visual Basic - Problema con Recordset

Hola gente como va ??
Bueno el problema que tengo es que llamo a un SP de Mysql desde VB6 y cuando pregunto si es recordset esta vacio me da un error de que La operacion no esta permitida si el objeto esta cerrado.

Aca mi codigo de vb6

_______________________________________________________________________
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset

cmd.ActiveConnection = db

cmd.CommandText = "call consultacajaventasextra('" & Format(DTPicker1.Value, "yyyymmdd") & "','" & sucu & "','" & tipo & "')"

Set rs = New ADODB.Recordset
Set rs = cmd.Execute
If rs.BOF And rs.EOF Then

_______________________________________________________________________

la variable deb es la conexion y esta declarada como publica

abajo esta el procedimiento de mysql
_______________________________________________________________________

CREATE DEFINER=`root`@`localhost` PROCEDURE `consultacajaventas`(fechac datetime, sucursalc varchar(1), tipoc varchar(1))
BEGIN
declare tipo varchar(1);

set tipo = tipoc;

if tipoc = 'V' then
select codventa, importetotal from ventas where fecha = fechac and estado <> 'baja' and tipo = tipoc and sucursal = sucursalc;
end if;
if tipoc = 'Z' then
select codventa, importetotal from ventas where fecha = fechac and tipo = tipoc and sucursal = sucursalc;
end if;
end

_______________________________________________________________________

Lei por ahi que deberia usar set nocount on en el procedimiento pero lo intento y me da error, no se conoce la variable nocount me deice el servidor mysql

Como lo soluciono ????
Gracias

Set rs = New ADODB.Recordset
Set rs = cmd.Execute

muchos Set, no crees?

Porque muchos Set ???
Como se supone que lo haga ?

pues con uno solo, no se lo puedes asignar dos veces

no se si lo entendiste

La verdad que no, podrias darme un ejemplo ???
de todas formas eso no creo que solucione mi problema no?

Está claro que no lo entendiste y que tampoco te voy a dar un ejemplo!!!

y para qué, si de todas formas eso no te va a solucionar tu problema no?

jajaja Ok, gracias

de nada jejeje

espero que para la próxima investigues sobre las directrices que te dan, OK?

Investigue pero lo que encontre no me sirvio, por eso escribi en este foro... por suerte siempre me ayudan asique esperarea ver si alguien me puede ayudar