Application.CurrentDb (Access)

The CurrentDb method returns an object variable of type Database that represents the database currently open in the Microsoft Access window.

Dim dbsA As Database, dbsB As Database 
Set dbsA = CurrentDb 
Set dbsB = CurrentDb