This is what I have and I think it has something to do with me using Outlook 97.
Dim oOlApp, oOlNS, oOlAL As Object
Set oOlApp = CreateObject("Outlook.Application")
Set oOlNS = oOlApp.GetNameSpace("MAPI")
Set oOlAL = oOlNS.AddressLists("Global Address List")