Private Sub Workbook_Open()
     Dim db As database
     Dim Rs As Recordset
     Dim sh As Sheets
     Dim Dokument As Document
     Dim Vork As Worksheet
     Dim Putanja As String
     Dim I As Integer, N As Integer, M As Integer, J As Integer, Iip     As Integer
     Dim Podatak, SifraImePrezime() As String, Sifravrstaposla As String, SQL As String
     Dim sifGrupaPosla As String, nsifNazivPosla As String, SQL1 As String, rs1 As Recordset
     Putanja = Me.Path
     SQL = "SELECT ImePrezime FROM AUposleni " _
           & "GROUP BY AUposleni.ImePrezime " _
           & "ORDER BY AUposleni.imePrezime"
     Set db = OpenDatabase(Putanja & "\Du_novi.mdb")
     Set Rs = db.OpenRecordset(SQL)
     M = Rs.RecordCount
    Rs.MoveFirst
    Do While Not Rs.EOF()
       'Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))
       Set Vork = Sheets.Add
       Vork.Name = Rs!imeprezime
       Vork.Cells(1, 1) = "Vrsta posla"
       Vork.Cells(1, 2) = "Grpa Posla"
       Vork.Cells(1, 3) = "Naziv Posla"
       Vork.Cells(1, 4) = "Broj Unosa"
       SQL1 = "Select * from ex where imeprezime = '" & Rs!imeprezime & "'"
       Set rs1 = db.OpenRecordset(SQL1)
       N = rs1.RecordCount
       Do While Not rs1.EOF()
         For I = 1 To N
            Podatak = rs1.Fields(1)
            Vork.Cells(I + 1, 1) = Podatak
            Podatak = rs1.Fields(2)
            Vork.Cells(I + 1, 2) = Podatak
            Podatak = rs1.Fields(3)
            Vork.Cells(I + 1, 3) = Podatak
            Podatak = rs1.Fields(4)
            Vork.Cells(I + 1, 4) = Podatak
            rs1.MoveNext
         Next I
      Loop
       Rs.MoveNext
    Loop
    Rs.Close
    rs1.Close
    Set Rs = db.OpenRecordset(SQL)
    Rs.MoveFirst
    End Sub