Cómo ejecutar un Procedure SQL Server 2000 en Visual Basic 6.0

[Cristhian_HC]

Hola: quisiera saber como recupero un conjunto de filas en visual basic de un procedimiento almacenado con parametros en visual basic, los datos los envio al servidor sin problemas pero no los puedo recuperar, claro excepcionando los reportes q si salen pero quiero agregar esos registro a una lista
este es el codigo:

Private Sub cmdEjecutar_Click()
Dim rs As ADODB.Recordset
Dim cmdCab As ADODB.Command
Dim prmCab As ADODB.Parameter
Dim cdnValor As Variant
Set cmdCab = New ADODB.Command
cmdCab.CommandText = "pa_StockxAlmacen"
cmdCab.CommandType = adCmdStoredProc
cmdCab.ActiveConnection = cnAlmacen

Set prmCab = cmdCab.CreateParameter("codSuc", adInteger, adParamInput)
cmdCab.Parameters.Append prmCab
Set prmCab = cmdCab.CreateParameter("fechaIni", adDate, adParamInput)
cmdCab.Parameters.Append prmCab
Set prmCab = cmdCab.CreateParameter("FechaFin", adDate, adParamInput)
cmdCab.Parameters.Append prmCab

cmdCab.Parameters("codSuc") = Val(cbo_Almacen.ItemData(cbo_Almacen.ListIndex))
cmdCab.Parameters("FechaIni") = fecha1
cmdCab.Parameters("FechaFin") = fecha2
cmdCab.Execute
'***** hasta aqui funciona todo****
set rs=cmdcab.execute

For i = 1 To rs.RecordCount - 1
Grid1.TextMatrix(i, cod_detalle) = rs!CantIng
Grid1.Rows = Grid1.Rows + i
Next i
End Sub