You can assigned the following Sub to a button :
-------------------------------------------
Sub ExecuteStoredProcedure()
Dim Chan As Variant
'Open a channel to a SQL Server data source
Chan = SQLOpen("DSN=SQLServer")
'Execute the stored procedure "sp_who" and return the
'results to the activecell on the active sheet.
SQLExecQuery Chan, "Execute sp_who"
SQLRetrieve Chan, ActiveCell
'Terminate the channel
SQLClose Chan
End Sub
--------------------------------------------------------------
More info for SQL - Excel connection on:
Macro Examples Using XLODBC Functions
Cheers
Penio