Dim I As Integer
I = DMax("[FiskalniBroj]", "tblProdaja") + 1
Me.FiskalniBroj = I