ImeFajla = Dir(DirPutanja, vbDirectory)
        Do While Len(ImeFajla) > 0
                        ' ImeFajla = Dir **** Ovo je iz nekog razloga pravilo problem
             If Right(ImeFajla, 3) = "Mdb" Then
                ImeBaze = DirPutanja & ImeFajla
                Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
                
                     SQL(0) = "INSERT INTO tblTransakcije (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _
                    & "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _
                    & "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _
                    & "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _
                    & "FROM tblTransakcije IN '" & ImeBaze & "'"
                    DoCmd.RunSQL (SQL(0))
                    SQL(1) = "INSERT INTO tblUlazIzlaz ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _
                        & "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _
                        & "FROM tblUlazIzlaz IN '" & ImeBaze & "'"
                    DoCmd.RunSQL (SQL(1))
                     
                        SQL(2) = "INSERT INTO tblProdaja (OrderID, Skladiste, FiskalniBroj, PartnerID, StovaristeID, " _
                    & "SifraKup, Datum, DatumIsporuke, NacinPlacanjaID, RokPlacanjaID, RokPlacanja, " _
                    & "DVO, Valuta, Dostava, Rabat, PDV, ZKI, JIR, Opaska, Opaska2, PurchaseOrderNumber, " _
                    & "ShipName, ShipAddress, ShipCity, ShipPostalCode,ShipCountry, ShipPhoneNumber, " _
                    & "ShipDate, ShippingMerhodID, PonudaID, Proknjizeno, KorisnikID, Stornirano, Komp )IN '" & ImeTmpBaze _
                    & "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Skladiste, FiskalniBroj, PartnerID, StovaristeID, " _
                    & "SifraKup, Datum, DatumIsporuke, NacinPlacanjaID, RokPlacanjaID, RokPlacanja, " _
                    & "DVO, Valuta, Dostava, Rabat, PDV, ZKI, JIR, Opaska, Opaska2, PurchaseOrderNumber, " _
                    & "ShipName, ShipAddress, ShipCity, ShipPostalCode,ShipCountry, ShipPhoneNumber, " _
                    & "ShipDate, ShippingMerhodID, PonudaID, Proknjizeno, KorisnikID, Stornirano, Komp " _
                    & "FROM tblProdaja IN '" & ImeBaze & "'"
                    DoCmd.RunSQL (SQL(2))
             End If
ImeFajla = Dir
        Loop