I am running a SQL Stored Procedure from my VBA syntax, and all of my update/insert statements work as they should and if I run a select statement directly from sql server, I get the result set that I am expecting. However, my VBA returns an error of
Operation is not allowed when the object is closed

The last line of my Stored Procedure is
Select * from productioninformation
So the stored procedure is set to return results and the object should be open as I open it in my vba here
con.Open "Provider=SQLOLEDB;Data Source=server;Initial Catalog=database;User Id=username;Password=password;Integrated Security=SSPI;Trusted_Connection=Yes;"
cmd.ActiveConnection = con

cmd.CommandText = "Aggregatethis"
Set rs = cmd.Execute(, , adCmdStoredProc)
Application.CalculateUntilAsyncQueriesDone
'This line throws the error
If rs.EOF = False Then ActiveSheet.Cells(8, 2).CopyFromRecordset rs

rs.Close
How can I return the data from my select statement at the end of my stored procedure back to Excel?