Application.CurrentDb method (Access) | Microsoft Learn

PHOTO EMBED

Fri Jul 12 2024 16:27:39 GMT+0000 (Coordinated Universal Time)

Saved by @rmdnhsn 

Dim dbsCurrent As Database, dbsContacts As Database 
Set dbsCurrent = CurrentDb 
Set dbsContacts = DBEngine.Workspaces(0).OpenDatabase("Contacts.mdb")
content_copyCOPY

https://learn.microsoft.com/en-us/office/vba/api/access.application.currentdb