Generate the report using stored procedure
Sub CreateStoredProcedureUsingADODB()
Establish_connection_With_SQLDB
Dim SqlQuery As String
SqlQuery = "Create procedure Sp_Sales" & vbNewLine
SqlQuery = SqlQuery & "as" & vbNewLine
SqlQuery = SqlQuery & "Select * from Sales"
'MsgBox SqlQuery
Con.Execute SqlQuery
Dim Sql As String
Sql = "Exec Sp_Sales"
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.Open Sql, Con
Dim Newsh As Worksheet
Set Newsh = ThisWorkbook.Sheets.Add(after:=Sheets(Sheets.Count))
Newsh.Range("A2").CopyFromRecordset Rs
Con.Execute "drop procedure Sp_Sales"
Con.Close
Newsh.Name = "SP_Star"
End Sub