Private Sub initVariables()
    blnNewRow = False
    blnFieldChanged = False
    blnError = False
End Sub
