'**************************************
' Using CurrentProject.Connection
'**************************************
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

With cn
    .ConnectionString = CurrentProject.Connection
    .CursorLocation = adUseClient
    .Attributes = .Attributes Or adXactCommitRetaining
    .Open
End With

'**************************************
' Using a DataLink file
'**************************************
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open “File Name=C:\myDatabase\myDataLink.udl”