Sub ConnecttoSameDB() Dim conn As ADODB.Connection Set conn = CurrentProject.Connection MsgBox "Connected to " & conn.Provider End Sub