Devi includere i DAO
Prova così:

codice:
Dim MyDb As Database, MyWs As Workspace
Set MyWs = DBEngine.Workspaces(0)
Set MyDb = MyWs.CreateDatabase("PercorsoFile", dbLangGeneral)