Public cnn As New ADODB.Connection
Public rst As New ADODB.Recordset
Public cm As New ADODB.Command


If rs.State <> adStateClosed Then rs.Close
With rs

sStr = " select id " & Chr(10)
sStr = sStr & " , to_number(cell_name) cell_name " & Chr(10)
sStr = sStr & " , cell_value " & Chr(10)
sStr = sStr & " , cell_formula_R1C1 " & Chr(10)
sStr = sStr & " from " & USER_TMP & " " & Chr(10)
sStr = sStr & " where company_name = '" & pCompanyName & "' " & Chr(10)
sStr = sStr & " and sheet_id = " & pSheet_Id & Chr(10)
sStr = sStr & " order by id, to_number(cell_name) " & Chr(10)

.Open Source:=sStr, ActiveConnection:=cnn

Do While Not .EOF

Label1.Caption = .Fields("id").Value Then

Row = Row + 1

.MoveNext
Loop
End With


Все тонкости упускаю, т.к. общая картина должна быть ясна.

А вообще, Valihan, опиши более подробно что и откуда ты запускаешь, с чем работаешь? Уж больно скудно описал всё!