Свойство ConnectionString выбором провайдера и источника данных - VB

Формулировка задачи:

Делаю свой ActiveX Data контрол. Можно ли задать свойство ConnectionString,чтобы его можно было задавать не вручную, а выбором провайдера и источника данных? Другими словами, нужно задать свойство так, чтобы при выборе появлялась кнопка, по которой открывается диалог Data Link Properties для задания подключения к источнику данных; как в ADODC-контроле, при задании соединения в среде окружения данных (DataEnvironment).

Решение задачи: «Свойство ConnectionString выбором провайдера и источника данных»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load() 
Dim MyDL As MSDASC.DataLinks 
Dim MyConn As ADODB.Connection 
 
Set MyDL = New MSDASC.DataLinks 
Set MyConn = MyDL.PromptNew 
 
If MyConn Is Nothing Then 
''If MyConn.ConnectionString = vbNullString Then 
Set MyDL = Nothing 
Set MyConn = Nothing 
Exit Sub 
'' End If 
End If 
 
Debug.Print MyConn.Properties('Persist Security Info').Value 
Debug.Print MyConn.Properties('Initial Catalog').Value 
Debug.Print MyConn.Properties('User ID').Value 
 
MyConn.Properties('User ID').Value = 'user1' 
Debug.Print MyConn.Properties('User ID').Value 
 
End Sub
                        