[XLeoX]

Gracias por tu sujerencia, ya se ejecuto mi programa, pero me marca un error:

EOleSysError with message "Operation Unavailable"
y se posiciona en esta linea

Access := GetActiveOleObject('Access.Application');