macro de access desde visual basic

[rubencho5413]

utilice este codigo

Option Explicit
Sub Ejecutar_Macro_Access(ByVal path_Bd As String, ByVal La_Macro As String)

On Error GoTo Err_Sub

' Nuevo objeto para acceder a Access
Dim Obj_Access As Access.Application
Set Obj_Access = New Access.Application

' Abre la base de datos indicada
Obj_Access.OpenCurrentDatabase path_Bd

' Ejecuta la macro del archivo Access
Obj_Access.DoCmd.RunMacro La_Macro

DoEvents
' Cierra el Access
Obj_Access.CloseCurrentDatabase


' Elimina la referencia creada
Set Obj_Access = Nothing


Descargar:
On Error GoTo 0
Exit Sub
'Error
Err_Sub:
MsgBox Err.Description, vbCritical
GoTo Descargar

End Sub



Private Sub Command1_Click()

Dim Path As String

Path = "C:baseapli.mdb"

'Indicar el path de la base de datos, y el nombre de la macro a ejecutar
Call Ejecutar_Macro_Access(Path, "Macro1")

End Sub