Function RedenBroj(Baraj As String) As Integer
On Error Resume Next
Dim db As dao.Database, rs As dao.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("tblET_Promena_Cena_Kasa_Rb", dbOpenDynaset, dbReadOnly)

With rs

.FindFirst ("[Data] = " & CStr(DLookup("[Data]", "tblET_Promena_Cena_Kasa_Rb", "[Data] = " & "' & Baraj &'")))
  RedenBroj = .AbsolutePosition + 1

End With

rs.Close
  Set rs = Nothing
  Set db = Nothing

End Function