ConnectionString Property Example
The following example displays the ConnectionString property setting of the currently active data access page:
Dim objCurrent As Object
Set objCurrent = Application.DataAccessPages(0)
MsgBox "The current base connection is " _
& objCurrent.ConnectionString