Операция не допускается если объект открыт - VB

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

Пришлось переписывать за предыдущим программистом код, на VB 6/0, столкнулся с такой проблемой

comm.ActiveConnection = ds.cn
comm.CommandType = adCmdText
comm.CommandTimeout = 

comm.CommandText =  + mag +  + id_grups +  + CStr(Format(.DatePicker1.value, )) +  + CStr(Format(.DatePicker2.value, )) + 

 rs = comm.Execute

Do While Not rs.EOF - выдает операция не допускается если объект открыт, при этом если смотреть в профайлере что получается с запросом , а потом с QA выполнить результат, 1000 записей....
Где копать?

Решение задачи: «Операция не допускается если объект открыт»

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

                            alter proc dbo.AnCach @nazv varchar(<font color="darkblue"><b>30</b></font>),@Prvo smallint,@DLeft <font color="blue">datetime</font>,@DRight <font color="blue">Datetime</font>,@cex smallint =<font color="darkblue"><b>0</b></font>  <font color="blue">as</font> 
--<font color="blue">set</font> nocount <font color="blue">on</font>
<font color="blue">Declare</font> @DLefter int,@DRighter int
<font color="blue">set</font> @DLefter=Year(@DLeft)*<font color="darkblue"><b>100</b></font>+Month(@DLeft)
<font color="blue">set</font> @DRighter=Year(@DRight)*<font color="darkblue"><b>100</b></font>+Month(@DRight)

<font color="blue">If</font> @nazv=<font color="00AA00">'KolVozvZag'</font>
begin 
<font color="blue">SELECT</font>  Name_C_K,DS, nesw, KolD From BrKolWozZag left join RekPodr <font color="blue">on</font> cex = kod_c <font color="blue">and</font> prvo=kod_p
 Where IsNull(sz, <font color="darkblue"><b>0</b></font>) = <font color="darkblue"><b>0</b></font> <font color="blue">and</font> Prvo = @Prvo <font color="blue">and</font> (dataP between @DLeft <font color="blue">and</font> @DRight) <font color="blue">and</font> cex = @cex
<font color="blue">end</font>
<font color="blue">If</font> @nazv=<font color="00AA00">'PrichVozvIzd'</font>
Begin
<font color="blue">SELECT</font> <font color="blue">case</font> when kod_w=<font color="darkblue"><b>1</b></font> <font color="blue">then</font> <font color="00AA00">'ОТК'</font>
when kod_w=<font color="darkblue"><b>2</b></font> <font color="blue">then</font> <font color="00AA00">'ПЗ' end as Who, tip,nesw,sum(KolB) as KolB,sum(KolW) as KolW</font>
From BrWozw 
where nesw <font color="blue">is</font> <font color="blue">not</font> null <font color="blue">and</font> isnull(sz,<font color="darkblue"><b>0</b></font>) = <font color="darkblue"><b>0</b></font> <font color="blue">and</font> BrWozw.KolP > <font color="darkblue"><b>0</b></font> <font color="blue">And</font> Kod_w > <font color="darkblue"><b>0</b></font> <font color="blue">And</font> Kod_cat > <font color="darkblue"><b>0</b></font> <font color="blue">and</font> Prvo = @Prvo <font color="blue">and</font> (dataP between @DLeft <font color="blue">and</font> @DRight) <font color="blue">and</font> cex = @cex
group by tip,nesw,kod_w
order by Who
<font color="blue">End</font>
                        