Run-time error 3447: JetVBA file(vbajet.dll for 16-bit versions, or vbajet32.dll for 32-bit versions) failed to initialize when called
De UltramaxWiki
Baixe a dll expsrv.dll, que pode ser encontrada no link a seguir, e copie para a pasta c:\windows\system e tente novamente.
http://www.dlldump.com/download-dll-files_new.php/dllfiles/E/expsrv.dll/6.0.95896/download.html