Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String
If N = 0 Then GoTo Kraj:
SQL = "SELECT Brisanje FROM Artilkli WHERE [color=#FF0000]ImeTVogPOljaPrimarnogJluca[/color]=" & UndoN(N)
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(SQL)

Rs.Edit
Rs.Fields(0) = 0
Rs.Update
N = N - 1
Me.RecordSource = Me.RecordSource
Kraj: