Private Sub initVariables()
    Solo hay una variable, que indica si el registro ha cambiado, y nicamente
se puede modificar la columna 5
    blnFieldChanged = False
    blnError = False
End Sub
