'********************************************************************************
'* Ejecuta una consulta de acción de una base da datos Access
'* 
'* ESH 29/06/04 15:25              
'********************************************************************************
 
Function EjecutaConsultaAccess
Dim strBD, _
    acApp
 
strBD = "La ruta de tu base de datos.mdb" 
 
'creo un objeto Access
Set acApp = CreateObject("Access.Application")
acApp.Visible = True
 
'abro la base de datos
acApp.OpenCurrentDatabase strBD
 
'ejecuto la consulta
acApp.DoCmd.RunSQL "Tu instrucción INSERT, UPDATE o DELETE"
 
'cierro y salgo
acApp.Quit
 
Set acApp = Nothing
End Function			' EjecutaConsultaAccess