Public Function fnDodadi_Izmena(izTabela As String, izPole As String, izID_Dokument As Long, izID_Naziv As String, izVrednost As String, _
                                izTip As Integer, izVraboten As Long, Optional Opis = "")
        Dim rsIzmeni As ADODB.Recordset
        Set rsIzmeni = New ADODB.Recordset
            rsIzmeni.Open "SELECT * FROM tblIzmeni WHERE ID_Izmena < 0", cn, adOpenStatic, adLockOptimistic
            rsIzmeni.AddNew
            rsIzmeni.Fields("izTabela") = izTabela
            rsIzmeni.Fields("izPole") = izPole
            rsIzmeni.Fields("izID_Dokument") = izID_Dokument
            rsIzmeni.Fields("izID_Naziv") = izID_Naziv
            rsIzmeni.Fields("izVrednost") = izVrednost
            rsIzmeni.Fields("izTip") = izTip        ' 0=Nedefinirano 1=Izmena 2=NovZapis 3=Izbrisan zapis
            rsIzmeni.Fields("izData") = Format(fnServer_DateTime, "dd.MM.yyyy hh:mm:ss")
            rsIzmeni.Fields("izVraboten") = izVraboten
            rsIzmeni.Fields("izOpis") = Format$(Opis)
            rsIzmeni.Update
      
      Set rsIzmeni = Nothing
End Function


' If rsKorisnk.Fields("kAdresa") <> txtAdresa.Text Then fnIma_Izmeni = True: Call fnDodadi_Izmena("tblKorisnik", "kAdresa", rsKorisnk.Fields("ID_Korisnik"), "ID_Korisnik", rsKorisnk.Fields("kAdresa"), 1, ID_Vraboten, "")