Не Double а Currency, и не Set rs = Cmd.Execute а просто Cmd.Execute

Кроме того (но это уже к ошибке не относится): а зачем ты юзаеш OLE DB провайдера для ODBC? или у тебя не MSSQL? Если MS, то используй SQLOLEDB (Connection Object в BOL)

Ну вот, дома за бутылочкой пивка собрал твой пример:

Dim cn As New ADODB.Connection, cmd As New ADODB.Command
cn.Open "Provider=sqloledb;Data Source=YourServerName;Initial Catalog=Pubs;User Id=sa;Password=;"
Set cmd.ActiveConnection = cn
cmd.CommandText = "имяПроц"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@iz", adInteger, adParamInput, , 1)
cmd.Parameters.Append cmd.CreateParameter("@iz", adInteger, adParamInput, , 1)
cmd.Parameters.Append cmd.CreateParameter("@sk", adNumeric, adParamOutput)
cmd.Prepared = False
cmd.Execute
MsgBox cmd.Parameters("@sk")
Set cmd = Nothing
cn.Close
Set cn = Nothing

Установка Prepared в False заставляет сервер не делать SqlPrepare, что экономит время. Можно вообще не добавлять параметры, а сказать cmd.Parameters.Refresh, и коллекция заполнится сама, нужно будет лишь указать значения входных параметров. Но это требует от сервера поиска и возврата атрибутов параметров, следовательно и замедляет выполнение и нагружает сервер, а потому неправильно (в профайлере хорошо видно чего это стоит!).
Можно делать как предлагает Garya, но это тоже неправильно, так как при adCmdText выполнение процедуры будет идти через ExecuteSQL, что в данном случае совершенно не нужно и также по напрасну расходует ресурсы сервера и замедляет выполнение. При первом вызове ExecuteSQL строит план выполнения запроса (при последующих вызовах если в кэше сохранится план выполнения, он будет использован ExecuteSQL повторно). Но так как план выполнения процедуры хранится вместе с ней, ExecuteSQL вообще не нужен.

Удачи!

Еще одно замечание - лучше явно указать размер Numeric и на сервере и на клиенте, либо, как я уже говорил, использовать на клиенте Currency как более универсальный тип.