Dim xxx As Access.Application
Set xxx = New Access.Application
以下略