[/src]......
Private Sub OKButton_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cm As String
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = App.Path & "\ReportITD.mdb"
    .Open
End With

    cm = "SELECT *, (100*tblDataInput.FirstLine/tblDataInput.AllDemand) AS Rezultat, (100*tblDataInput.Close/tblDataInput.PlanDemand) AS Rezultat1" & _
    " FROM tblDataInput Where Month = '" & Me.Combo1.Text & "' and Year='" & Me.Combo2.Text & "'"

With rs
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open cm     'ВОТ НА ЭТОМ МЕСТЕ ПИШЕТ ОШИБКУ  ПРИ ПРОВЕРКЕ ПО ШАГАМ
End With
If rs.RecordCount >  0  Then
    Set DataReport3.DataSource = rs
    DataReport3.Sections("Section1").Controls("txtRezultat").DataField = "Rezultat"
    DataReport3.Sections("Section1").Controls("txtRezultat1").DataField = "Rezultat1"
    DataReport3.Sections("Section4").Controls("lblRHeader").Caption = "за " & Me.Combo1.Text
    DataReport3.Sections("Section4").Controls("lblRHeader1").Caption = Me.Combo2.Text
.....[SRC vba]

[/src]" SELECT *, (100*[FirstLine]/AllDemand) AS Rezultat, (100* [Close]/PlanDemand) AS Rezultat1" & _
" FROM tblDataInput Where Month = '" & Me.Combo1.Text & "' and Year='" & Me.Combo2.Text & "'"
[SRC vba]