'/**
' * @params	see MS Access Help
' * @return	see MS Access Help
' */
Public Function Nz(ByVal iValue As Variant, Optional ByVal iDefault As Variant = Empty) As Variant
    If IsObject(iValue) Or IsObject(iDefault) Then
        Set Nz = IIf(IsNull(iValue), iDefault, iValue)
    Else
        Nz = IIf(IsNull(iValue), iDefault, iValue)
    End If
End Function