BaseConnectionString Property Example

The following example displays the BaseConnectionString property setting of the current project:

Dim objCurrent As Object
Set objCurrent = Application.CurrentProject
MsgBox "The current base connection is " _
    & objCurrent.BaseConnectionString