'/**
' * Private Modul-Variable um das Access-Objekt zu cachen. Wenn man das
' * nicht so macht, dann wird für jeden Eval die Access-Bibliothek erneut geöffnet, was etwa 2 Sekunden beansprucht.
' */
Private acc as Object

'/**
' * Führt eval() von MS Access aus.
' * @param	see MS Access Help
' * @return	see MS Access Help
' */
Public Function Eval(ByVal iValue As Variant) As Variant
    If acc Is Nothing Then set acc=createObject("Access.Application")
    Eval = acc.Eval(iValue)
End Function

'/**
' * Führt Nz() von MS Access aus.
' * @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 acc Is Nothing Then set acc=createObject("Access.Application")
    Nz = acc.Nz(iValue, iDefault)
End Function