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