Check If Refrence Library Is Loaded

I call this code from within Workbook_Open.........
If these Refrences libraries are loaded then an error appear tells
Name conflict with object library........it's clear why......

Is there a way 2 check if the Refrences are loaded then exit the sub i.e. no need to excute this code , and if not loaded then excute the code ?


Sub GetRefLibr()
Dim ID As Object
On Error Resume Next

'*Reference ADO Object Library using Major / Minor GUID
Set ID = ThisWorkbook.VBProject.References
ID.AddFromGuid "{00000205-0000-0010-8000-00AA006D2EA4}", 2, 5
ID.AddFromGuid "{000204EF-0000-0000-C000-000000000046}", 2, 5
ID.AddFromGuid "{00020813-0000-0000-C000-000000000046}", 1, 5
ID.AddFromGuid "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0
On Error Goto 0
Dim MyVar
MyVar = "Come see me in the Immediate pane."
Debug.Print MyVar

End Sub