Possibly you may be looking for CurrentProject.Connection. For example, to
open a recordset on a local table, assign CurrentProject.Connection to the
ActiveConnection property of the recordset ...
Dim rst As ADODB.Recordset
Set rst.ActiveConnection = CurrentProject.Connection