Public Function BrojReda(frm As Form) As Variant
On Error GoTo Err_BrojReda
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
       BrojReda = .AbsolutePosition + 1
    End With
Exit_BrojReda:
    Exit Function
Err_BrojReda:
    If Err.Number <> 3021& Then
Debug.Print "BrojReda() error " & Err.Number & " - " & Err.Description
    End If
    BrojReda = Null
    Resume Exit_BrojReda
End Function