caminho 1:
Adicione uma biblioteca de referência do DAO 3.6 ao projeto.
caminho2:
ConstTypeLibCLSID="{00025E01-0000-0000-C000-000000000046}"
References.AddFromGuid TypeLibCLSID, 5, 0
caminho 3:
strPath = Environ$("CommonProgramFiles(x86)") & "\Microsoft Shared\DAO\DAO350.DLL"
ou
strPath = Environ$("CommonProgramFiles") & "\Microsoft Shared\DAO\DAO350.DLL"
References.AddFromFile(strPath)