OpenDatabase function gives error

Problem:
OpenDatabase function which is a standard function in VB
gives the following error

Solution:
Modify the code to

Set db = DBEngine.OpenDatabase(cd1.FileName)