SQL - El sp devuelve el error 3704

Hola Comunidad

Resulta que en mi aplicacion de se ejecuta un procedimiento almacenado algo parecido a esto

Set CmdGrafica = New ADODB.Command
Set Reg = New ADODB.Recordset

With CmdGrafica
.CommandType = adCmdStoredProc
.CommandText = "spGraficaTiemposPerdidos"
.Parameters.Append .CreateParameter("@strFechaIni", adVarChar, adParamInput, 10, datFechaInicial.Value)
.Parameters.Append .CreateParameter("@strFechaFin", adVarChar, adParamInput, 10, datFechaFinal.Value)
.Parameters.Refresh
.ActiveConnection = Conexion
.CommandTimeout = 360
Set Reg = .Execute
Reg.Close
MsgBox Reg.RecordCount
End With

Supuestamente en la variable Reg me queda lo que devovio el sp pero si despues del End With coloco

Do While Not Reg.Eof
operaciones
.
.
.
loop´

Me saca un error que dice

Error Numero: 3704
Descripcion: La operation is not allowed when the object is closed

Gracias a todos por la ayuda.

Coloca el Reg.Close despues de hacer tu LOOP

Mira este es el codigo que me saca el error el otro era de unas pruebas que estaba haciendo

Set CmdGrafica = New ADODB.Command
Set Reg = New ADODB.Recordset

With CmdGrafica
.CommandType = adCmdStoredProc
.CommandText = "spGraficaTiemposPerdidos"
.Parameters.Append .CreateParameter("@strFechaIni", adVarChar, adParamInput, 10, datFechaInicial.Value)
.Parameters.Append .CreateParameter("@strFechaFin", adVarChar, adParamInput, 10, datFechaFinal.Value)
.Parameters.Refresh
.ActiveConnection = Conexion
.CommandTimeout = 360
Set Reg = .Execute
End With

Supuestamente en la variable Reg me queda lo que devovio el sp pero si despues del End With coloco

Do While Not Reg.Eof
operaciones
.
.
.
loop´

Me saca un error que dice

Error Numero: 3704
Descripcion: La operation is not allowed when the object is closed

Gracias a todos por la ayuda.