Determine Data Link Properties Programmatically?

[HardingR2000]

Is it possible to determine programmatically the connection information as specified in the "Data Link Properties" wizard from within the ADP application?

I need to programmatically alter the "Initial Catalog" specified in the following when the the database is changed.

NGMSConnect.Open "Provider='SQLOLEDB';Data Source='SVR-NATGAS';" "Initial Catalog='NGMSData';Integrated Security='SSPI';

 

[PWise]

With CurrentProject
  Debug.print .BaseConnectionString
  Debug.print .AccessConnection
  Debug.print .Connection
End With

 

[HardingR2000]

I did not realize it was so simple. Thank you for your help.