Function Pregledi(BrPredmeta As String)
    Dim SQL As String
    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim Temp As String, Znak As String
    Dim BrRekorda As Integer, I As Integer

  
    SQL = "SELECT Prezime, Ime,Broj_Predmeta_Pregleda " _
          & "FROM tblINSPEKTORI " _
          & "INNER JOIN tblINSPEKTORI_NA_PREGLEDU ON tblINSPEKTORI.JMBG_Inspektor = " _
          & "tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor " _
          & "WHERE Broj_Predmeta_Pregleda= '" & BrPredmeta & "'"
    Set Db = CurrentDb
    Set Rs = Db.OpenRecordset(SQL)
    If Rs.RecordCount = 0 Then
    MsgBox "Nema Podataka"
    GoTo Kraj:
   
    End If
    Do While Not Rs.EOF
    Temp = Temp & Rs!Ime & " " & Rs!Prezime & " isprava broj " & Rs!Broj_Predmeta_Pregleda & ",  "
    Rs.MoveNext
    Loop
    Temp = Left(Temp, Len(Temp) - 3)
    BrRekorda = Rs.RecordCount
    If BrRekorda > 1 Then
        For I = 1 To Len(Temp) - 1
        Znak = Mid(Temp, Len(Temp) - I, 1)
            If Znak = "," Then
            Mid(Temp, Len(Temp) - I, 2) = " i"
            Exit For
            End If
        Next I
    End If
    Pregledi = Temp
    Exit Function
Kraj:
    End Function