Function Pregledi()
Dim SQL As String
Dim Db As dao.Database
Dim Rs As dao.Recordset
Dim Temp As String

SQL = "SELECT Prezime, Ime,Broj_Predmeta_Pregleda " _
      & "FROM tblINSPEKTORI INNER JOIN tblINSPEKTORI_NA_PREGLEDU ON tblINSPEKTORI.JMBG_Inspektor = " _
      & "tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor"
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
Else
MsgBox "Nema Podataka"
GoTo Kraj:
End If
Do While Not Rs.EOF
Temp = Temp & Rs!Ime & "," & Rs!Prezime & "," & Rs!Broj_Predmeta_Pregleda & " i "
Rs.MoveNext
Loop
Temp = Left(Temp, Len(Temp) - 3)
Pregledi = Temp
Exit Function
Kraj:
End Function