Como utilizar modulo excel 2010 atualizando access 2010 ?

[lucarlos.oliver62]

Esse código funcional para excel2007 e access97. 

Mas ao substituir o access97 (.mdb) pelo access2010 (accdb) e o excel97 pelo excel2010, não funciona. 

 

Verificar detalhe abaixo:

 

Sub AccessMacro()

    

    Dim B As Object

    Set B = CreateObject("Access.Application")

        

    B.Visible = False

    B.OpenCurrentDatabase ("C:\Base de dados\Programação_V1.0.accdb")

    B.DoCmd.RunMacro "autoexec"

    

       MsgBox ("Pronto a base de dados já foi atualizada!")



    Plan1.Activate



End Sub