In Microsoft Access, use the CurrentDb function to return a reference to the current database and assign it to a Database variable, as shown in the following example.
Dim dbsCurrent As Database
Set dbsCurrent = CurrentDb
Use the OpenDatabase method to open a database other than the current database from Visual Basic.