Как присвоить сумму поля в переменную для дальнейших операций с ним.
Программа на Visual Basic 6.0, база формата dbf.

Задача такая:
Есть база в котором есть имена, цех(название цеха), число1 (время работы), число2 (сумма работы).
Есть форма с помощью которого можно фильтровать по имени и цеху.

Необходимо, чтобы каждый раз при добавлении, удалении, или фильтровании в отдельных label-ах вычислялась их количество, сумма число1, сумма число2

sql = "Select Sum('duration') From smc"
Запрос такого типа??
Дело в том, что я не знаю как выдавать его значение лейблу

Сумма одного поля по всем строкам

Я привязал лейбл к базе, но там только одна запись, а необходимо чтобы там была их сумма

А здесь rsSum - это datPrimaryRS.Recordset??

Написал
================================
Dim rsSum As ADODB.Recordset
___________________________________
Private Sub Command1_Click()
Set rsSum = New ADODB.Recordset

rsSum.Open "Select Sum('duration') From smc"
Label3.DataField = "duration"
Set Label3.DataSource = rsSum

End Sub
___________________________________
================================

Ругается, что объект закрыт (см.в приложении)

А здесь запрос правильный?
===
Select Sum('duration') From smc,
===
где duration-поле, smc-таблица

Теперь ошибка следующего типа:

Что здесь
rsSum.Open "Select Sum('duration') From smc", Conn1, adOpenStatic, adLockReadOnly, adCmdText
означает
Conn1.

Во время набора текста там появляется ActiveConnection. Здесь Conn1-переменная или любой текст??

Я это уже пробовал.
Выводит ошибку как в первом рисунке этого треда, т.е. Объект закрыт или не допускается в данном контексте.

Спасибо всем. получилось:

=============================
Sub baza_sum()
On Error Resume Next

Dim conn1 As ADODB.Connection
Dim rsSum As ADODB.Recordset
Dim sqlstr As String

Set rsSum = New ADODB.Recordset
Set conn1 = New ADODB.Connection

strConn1 = "Provider='MSDASQL';dsn=Ôàéëû dBASE;uid=;pwd=;"
sqlstr = "Select Sum(duration), Sum(usd) From smc;"

conn1.Open strConn1
rsSum.Open sqlstr, conn1, adOpenStatic, adLockReadOnly, adCmdText
Label2.Caption = datPrimaryRS.Recordset.RecordCount
Label3.Caption = rsSum(0)
Label4.Caption = rsSum(1)

End Sub
====================

Теперь та же проблема в другом виде.
В начале все прекрано суммируется, но когда база фильтруется эта функция все равно считает всю базу. Что надо подправить, чтобы она суммировала фильтрованную базу.