Problema en Store Procedure

Hola, tengo este Store Procedure para que me devuelva los dias del mes en
los cuales hay rangos de horarios determinados, el problema esta en que
cuendo corro desde VB esto:

cadena = "sp_Horarios '" & '20041201' & "'," & 1 & ",'" & 1 & "'"
rs.Open cadena, ADOcnDatos, adOpenForwardOnly, adLockReadOnly

se ejecura pero rs me queda vacio, no tengo nada.
No entiendo porque, ya que con otros SP, mas sensillos, que hacen un Select
con parametros y coas por el estilo, en rs si me devuelve el recorset con
los datos.
Se que este NO es un foro de programacion, pero el error mio creo que esta
en el SP.

Desde ya muchas gracias y aqui abajo pongo el SP:

CREATE PROCEDURE sp_Horarios
@FechaAAMM datetime,
@IdMedico int,
@IdSede varchar(2)
AS

Declare @i int
Declare @HD varchar(5)
Declare @HH varchar(5)
Declare @Fecha datetime
Declare @DiaS int

create table #tmes (dia int, hh varchar(5), hd varchar(5))
Select @i = 0
While (@i < 30)
Begin
Select @Fecha = Dateadd(dd,@i,@FechaAAMM)
Select @DiaS = DatePart(dw,@Fecha)
Select @HH = ''
Select @HD = ''
SELECT @HH = HoraHasta,@HD = HoraDesde From TurnosDef
Where VigDesde <= @FechaAAMM And VigHasta >= @FechaAAMM
And (Select Max(VigDesde) From TurnosDef Where VigDesde < @FechaAAMM And IdMedico = @IdMedico And
VigHasta >= @FechaAAMM)

= VigDesde And IdMedico = @IdMedico And IdSede = @IdSede And

Dia = @DiaS
ORDER BY VigDesde DESC, Dia, HoraDesde
Select @i = @i + 1
INSERT INTO #tmes Values(@i,@HD,@HH)
End
Select * From #tmes
GO