Function KorisnickeP(Id As Integer)
Dim Db  As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String
Dim I As Integer
Dim Podaci As String


SQL = "SELECT * FROM tblUsers WHERE KorisnikID=" & Id

Set Db = CurrentDb
Set Rs = Db.OpenRecordset(SQL)
For I = 1 To 5
Podaci = Podaci & Rs.Fields(I) & ","
Next I
KorisnickeP = Left(Podaci, Len(Podaci) - 1)
End Function