Tablica = "tblOperatori"
Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica, dbOpenDynaset)
    If SL_Pocetna.RecordCount > 0 Then
        SL_Pocetna.MoveFirst
        While Not SL_Pocetna.EOF
            With SL_Zavrsna
            .AddNew
                ![KorisnikID] = SL_Pocetna![KorisnikID]
                ![FirstName] = SL_Pocetna![FirstName]
                ![LastName] = SL_Pocetna![LastName]
                ![Title] = SL_Pocetna![Title]
                ![OIB] = SL_Pocetna![OIB]
                ![WorkPhone] = SL_Pocetna![WorkPhone]
                ![OperID] = SL_Pocetna![OperID]
                ![Sifra] = SL_Pocetna![Sifra]
                ![PravaPristupa] = SL_Pocetna![PravaPristupa]
                ![RadMj] = SL_Pocetna![RadMj]
            .Update
        End With
         SL_Pocetna.MoveNext
        Wend
   End If