Function Ejecutar_Procedimiento()
Dim qdef As DAO.QueryDef
Set qdef = CurrentDb.CreateQueryDef("")
qdef.ReturnsRecords = False
qdef.Connect = CurrentDb.TableDefs("[cualquier tabla linkeada de SQL]").Connect
qdef.sql = "EXEC mi_store"
qdef.Execute
End Function
No hay comentarios:
Publicar un comentario