Function UcitajOper()
Dim Rs As Recordset
Dim Db As Database

Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("SELECT TOP 1 * FROM A_Logiranje ORDER BY VrijemeLog DESC")
M_Oper.OperID = Rs!KorisnikID
Rs.Close
Set Rs = Db.OpenRecordset("SELECT * FROM tblOperatori WHERE KorisnikID=" & M_Oper.OperID)
M_Oper.ImeO = Rs!FirstName
M_Oper.PrezO = Rs!LastName
'M_Oper.KorImeO = Rs!KorIme ovo neznam odkle citas i dali jos sta citas.
Rs: Close
Set deb = Nothing
End Function