Pokazi poruku koliko je rekorda izmenjeno kada se izvrsi update query

Code:
Private Sub Izmena_Click()
If IsNull(Me.staribod) Or Me.staribod = "" Or Me.staribod = 0 Then
MsgBox "Molim vas unesite STARI bod.", vbInformation, "Greška"
Me.staribod.SetFocus
Exit Sub
Else

If IsNull(Me.novibod) Or Me.novibod = "" Or Me.novibod = 0 Then
MsgBox "Molim vas unesite NOVI bod.", vbInformation, "Greška"
Me.novibod.SetFocus
Exit Sub

End If
End If

DoCmd.SetWarnings False
DoCmd.OpenQuery ("izmena")
DoCmd.SetWarnings True

On Error GoTo Err_izmena_Click

MsgBox "Uspešno ste izmenili bazu.", vbInformation, "Uspešno"
Me.staribod = 0
Me.novibod = 0

Exit_izmena_Click:
    Exit Sub

Err_izmena_Click:
    MsgBox Err.Description
    Resume Exit_izmena_Click

End Sub

Code:

Function ExecuteUpdateQuery() As Long

Dim db As DAO.Database

Set db = CurrentDb

db.Execute "Izmena", dbFailOnError

ExecuteUpdateQuery = db.RecordsAffected


End Function

Code:

Private Sub IzmeniZapise_Click()
     ExecuteUpdateQuery
End Sub