Public Function BuildConnectionString() As String 
    
  Dim dataLink As New MSDASC.DataLinks 'Must have reference to OLEDB Services 
  Dim ConnString As String 
   
  ' Display the dialog 
  On Error Resume Next 
  ConnString = dataLink.PromptNew 
  If Err = 0 Then 
      ' Create a Connection object on this connection string 
      BuildConnectionString = ConnString 
  Else 
      ' User canceled the operation 
      BuildConnectionString = "" 
  End If 
End Function 



Public Function EditConnectionString(CN As ADODB.Connection) As String 
  Dim dataLink As New MSDASC.DataLinks 'Must have reference to OLEDB Services 
  Dim ConnString As String 
    
  If dataLink.PromptEdit(CN) Then 
      EditConnectionString = CN.ConnectionString 
  End If 
End Function