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