Function BrojPonude()
Dim db As Database
Dim SQL As String
Dim rs As Recordset
Dim I As Integer
Set db = CurrentDb
SQL = "SELECT Max(Right(PonudaID,4)) FROM tblPonuda"
Set rs = db.OpenRecordset(SQL)
MsgBox rs.Fields(0)
End Function