直接调用内置数据源连接对话框（VB.NET2005源码）

'先引用Microsoft.Data.ConnectionUI.Dialog.dll（在VS2005安装路径的IDE目录下）
'将以下代码加入相应事件过程  

 1 Dim  dialog  As  DataConnectionDialog  =   New  DataConnectionDialog()
 2                     dialog.DataSources.Add(DataSource.SqlDataSource)
 3                     dialog.DataSources.Add(DataSource.OdbcDataSource)
 4                     dialog.DataSources.Add(DataSource.OracleDataSource)
 5                     dialog.DataSources.Add(DataSource.AccessDataSource)
 6
 7                     dialog.SelectedDataSource  =  DataSource.SqlDataSource
 8                     dialog.SelectedDataProvider  =  DataProvider.SqlDataProvider
 9
10                         DataConnectionDialog.Show(dialog)
11                      If  dialog.DialogResult  =  Windows.Forms.DialogResult.OK  Then
12                          Me .TextBox1.Text  =  dialog.ConnectionString
13                      ElseIf  dialog.DialogResult  =  Windows.Forms.DialogResult.Cancel  Then
14                          Me .Close()
15                      End   If
16
17