MSSql server и процедуры через адо - VB

Формулировка задачи:

Привет всем.
Короче вызывваю я процедуру на SQL сервере все происходит нормально но почемуто рекордсет сам по себе закрывается.
Когда-то я уже подымал эту тему на форуме, тогда все решилось подстановкой
set nocount on в процедеру. Сейчас же это не срабатывает, причем особо нового в процедуре на появилось, ну транзакция и пару апдейтов.
да через одбс все работает. Сейчас смотрю справку по скл серверу и на мсдн, но никак не могу ничего найти.
Бросте кто-то информацию где можно поподробней об этом почитать или как это можно обойти

Решение задачи: «MSSql server и процедуры через адо»

textual
                            Листинг программы 
                        

                            <br><font color="blue">if</font> <font color="darkred">@@ERROR</font><><b><font color="darkblue">0</font></b> 
<br><font color="blue">begin</font> 
<br><font color="blue">set</font> <font color="darkred">@nError</font> = <font color="darkred">@@ERROR</font> <font color="blue">goto</font> lEnd 
<br><font color="blue">end</font> 
<br><font color="blue">if</font> <font color="darkred">@@ERROR</font><><b><font color="darkblue">0</font></b> 
<br><font color="blue">begin</font> 
<br><font color="blue">set</font> <font color="darkred">@nError</font> = <font color="darkred">@@ERROR</font> <font color="blue">goto</font> lEnd 
<br><font color="blue">end</font> 
                        