Во-первых, необходимо убедиться, что в VB подлючена ссылка на библиотеку ADO.
Во-вторых, в тексте используется синтаксис VB-Script для WEB-приложений, а не полноценного VB. В частности, я препочитаю использовать такую конструкцию:
Set ADOConnection = NEW ADODB.Connection
вместо такой:
Set ADOConnection = CreateObject("ADODB.Connection")
При использовании первого варианта ты сразу увидишь, все ли у тебя в порядке со ссылкой на библиотеку ADO. Если ссылка не установлена, после ввода пробела следом за директивой NEW в выпадающем списке объектов не будет библиотеки ADODB.
В-третьих, вместо:
ADOCommand.ActiveConnection = ADOConnection
необходимо писать:
Set ADOCommand.ActiveConnection = ADOConnection
В четвертых, вместо фразы:
ADOCommand.Parameters.Item(0).Value = Trim(Cells(i, 1).Value)
попробуй написать
ADOCommand.Parameters(1).Value = Trim(Cells(i, 1).Value) (если только не XP)
В пятых,
ADOCommand.Prepared = True
здесь совершенно ни к селу, ни к городу. Эта опция используется в параметризированных запросах во избежание их повторной компиляции при многократных вызовах (план таких запросов помещается в кэш). А хранимая процедура и так откомпилирована.
В-пятых, для корректного выставления значения RecordCount необходимо сначала переместить указатель в КОНЕЦ Recordset-а. Исходя из этого, лучше использовать не цикл FOR со счетчиком, а цикл
WHILE not ADOTable.EOF
EOF выставляется корректно и без специальных дерганий по рекордсету.
В-шестых, из приведенного Вами кусочка скрипта хранимой процедуры ясно, что хранимая процедура возвращает не один, а два Recordset-а. Тот Recordset, к которому Вы пытаетесь получить доступ в приведенном скрипте является первым из них. Для получения следующего Recorset-а необходимо использовать метод NextRecordset.