Народ подскажите кто нибудь как написать в VB6 из запроса в Акцесе
SELECT tblDataInput.FirstLine, tblDataInput.AllDemand, (100*tblDataInput.FirstLine/tblDataInput.AllDemand) AS Rezultat
FROM tblDataInput;
В запросе создается поле с результатом расчета
надо чтоб это значение вписывалось в ДатаРепорте в одну ячейку
остальное все из таблицы в репорт подтягивается
Ошибку пишет типа DataField необнаружено
,хотя вроде бы все прописывал

НУ я примерно так и прбовал , вообщем сделал в DataReporte rptTextBox попытался присвоить ему результат расчета , ничего что то не вышло :((
Нет ли где примера такого?

Ещё вот мысль по поводу расчета результата в коде , нужно данные из таблицы брать,как их обохзначать ведь этим значениям есть уже присвоеные имена в полях , может тоже на такую тему есть где примеры ?
Перекопал кучу всего но ничего похожего не встретил , хотя вроде бы задача для новичка , кем и являюсь
Спасиб!

Что то совсем в тупик зашел , в DataReport секции 1 создал rptLabel,DataFiel Написал ему Rezultat
в Акцессе, сделал запрос в запросе появилось три поля
все врде бы показываю ему все равно пишет DataField "Rezultat" not found
Вот кусок кода
Private Sub OKButton_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = App.Path & "\ReportITD.mdb"
.Open
End With
With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open "SELECT * FROM tblDataInput Where Month = '" & Me.Combo1.Text & "' and Year='" & Me.Combo2.Text & "'"

End With


If rs.RecordCount > 0 Then
Set DataReport2.DataSource = rs
DataReport2.Sections("Section4").Controls("lblRHeader").Caption = "çà " & Me.Combo1.Text
DataReport2.Sections("Section4").Controls("lblRHeader1").Caption = Me.Combo2.Text
DataReport2.Show 1
If rs.State = adStateOpen Then rs.Close
If cn.State = adStateOpen Then cn.Close
Set rs = Nothing
Set cn = Nothing
Else
MsgBox "Çàïèñü íå íàéäåíà!Ñäåëàéòå íîâóþ çàïèñü!"
If rs.State = adStateOpen Then rs.Close
If cn.State = adStateOpen Then cn.Close
Set rs = Nothing
Set cn = Nothing
End If
End Sub

Подскажите куда здесь засунуть чтоб поле из запроса в отчет попало?