Programatically add Active X Objects library reference?

[Thebatfink]

Hi,

I think I've gathered its possible from various google searches, but I'm struggling to get the one I want added. I want to programatically add the reference

Microsoft Active X Data Objects 2.8 Library

to the activeworkbook..

The correct code, whilst I have some hair left, would be greatly appreciated

Thanks!
Batfink

 

[GTO]

Hi Batfink,

Se Ken Puls entry at: http://www.vbaexpress.com/kb/getarticle.php?kb_id=267

I believe the GUID you want is: {2A75196C-D9EB-4129-B803-931327F72D5C}

Hope that helps,

Mark

 

[Thebatfink]

Hi,

Thanks for the reply, that worked with your ID number thanks

Forgoing any of the error checking ..

strGUID = "{2A75196C-D9EB-4129-B803-931327F72D5C}"

    ActiveWorkbook.VBProject.References.AddFromGuid _
    GUID:=strGUID, Major:=1, Minor:=0