Function PodaciKorisnika(Fajl As String)
PodaciKorisnika = DLookup(Fajl, "tblusers", "KorisnikID=" & KorisnikID)
End Function