Помогите с Recordset-ом - VB

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

Доброго времени суток!)Помогите пожалуйста!.
Я делаю выборку в VB6 из базы данных MS SQL server в рекордсет, потом по каждому полю рекордсета нахожу среднее значение.А теперь мне надо эти средние значения поместить в новый рекордсет,что в дальнейшем к ним обращаться.
Вот код для нахождения среднего значения

Set sred = Conn.Execute("Select сol1,col2,col3,col4 from Forma2 inner join Nalogoplatelchik on Forma2.INN=Nalogoplatelchik.INN where (Forma2.OtchetniiGod=" & a1 & ") and (Nalogoplatelchik.UN_OKVED_osnov=" & c & ")")
j = 0
For i = 0 To sred.EOF
sred.MoveFirst
s = 0
Do While Not sred.EOF
If i = 0 Then j = j + 1
If Not IsNull(sred.Fields(i).Value) Then s = s + sred.Fields(i).Value
sred.MoveNext
Loop
sr = sr + s / j
Next

И вообще правильно ли я нахожу среднее по стобцу??

Решение задачи: «Помогите с Recordset-ом»

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

                            <font color="00AA00">'sigma</font>
sred.MoveFirst  [color=red]<font color="00AA00">'здесь выходит ошибка 3704 <font color="teal">"Операция не допускается, если объект закры"</font>[/color]</font>
sr = <font color="darkblue"><b>0</b></font>
j = <font color="darkblue"><b>0</b></font>
<font color="blue">For</font> j = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> <font color="darkblue"><b>3</b></font>
sr = sr + sred.Fields(j).Value
<font color="00AA00">'sred.Fields(0).Value sred.Fields(1).Value + sred.Fields(2).Value + sred.Fields(3).Value</font>
<font color="blue">Next</font>
sred.MoveNext
RPsr = sred.Fields(<font color="darkblue"><b>4</b></font>).Value / sr

                        