way 1:
Add reference DAO 3.6 library to project.
way 2:
Const TypeLibCLSID = "" References.AddFromGuid TypeLibCLSID, 5, 0
way 3:
strPath = Environ$("CommonProgramFiles(x86)") & "\Microsoft Shared\DAO\DAO350.DLL"
or
strPath = Environ$("CommonProgramFiles") & "\Microsoft Shared\DAO\DAO350.DLL" References.AddFromFile(strPath)