Visual Basic - 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.