Here is an example:
Dim cmd As New ADODB.Command
Dim conn As New ADODB.Connection
conn.Open "Driver={SQL Server};Server=YourServerName;Database=YourDBName;Uid=UserNameHere;Pwd=PasswordHere"
cmd.ActiveConnection = conn
cmd.CommandText = "store_procedure_name_here"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@YourStoredProcParameter", adInteger, adParamInput, 8)
cmd.Parameters("@YourStoredProcParameter") = 1
cmd.Execute
Set cmd = Nothing
conn.Close
Set conn = Nothing