Function Otvorirekord() Dim Db As Database Dim Rs As Recordset Dim BrojRedova As Integer Dim i As Integer Set Db = CurrentDb Set Rs = Db.OpenRecordset("ImeTabeleIli Query-a") Rs.MoveLast Rs.MoveFirst BrojRedova = Rs.RecordCount Do While Not Rs.EOF i = i + 1 ProgresMetar i, BrojRedova Rs.MoveNext Loop Rs.Close End Function