Function NV(ImePolja As String, ImeTabele As String, Uslov As String)
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String

If Len(Uslov) <= 26 Then GoTo kraj
On Error Resume Next
SQL = "SELECT " & ImePolja & " FROM " & ImeTabele & " WHERE " & Uslov
Set DB = CurrentDb()
Set Rs = DB.OpenRecordset(SQL)
NV = Rs.Fields(0)
kraj:
End Function