sdupis.MoveFirst
Do While Not sdupis.EOF
   i = i + 1
   rs.AddNew
   rs.Fields("Knjizenje") = i
   rs.Fields("IDNalog") = sdupis.Fields("nalog")
   rs.Fields("IDVrstaNaloga") = sdupis.Fields("IDVrstaNaloga")
   rs.Fields("IDOrg") = sdupis.Fields("IDOrgJedIzvor")
   rs.Fields("IDKonto") = sdupis.Fields("IDKonto")
   rs.Fields("IDValuta") = sdupis.Fields("IDValuta")
   rs.Fields("IDKom") = sdupis.Fields("KOMit")
   rs.Fields("IDFirma") = sdupis.Fields("IDFirma")
   rs.Fields("Datum") = sdupis.Fields("Datum")
   rs.Fields("IDPeriod") = sdupis.Fields("")
   rs.Fields("") = sdupis.Fields("IDPeriod")
  
   rs.Update
  sdupis.MoveNext
Loop