Imports MSDASC
Imports ADODB
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim cn As New Odbc.OdbcConnection
        Dim Instance As DataLinksClass = New DataLinksClass
        Dim connection As ConnectionClass = New ConnectionClass
        If (Instance.PromptEdit(connection)) Then
            cn.ConnectionString = connection.ConnectionString
            For Each cp As [Property] In connection.Properties
                Debug.WriteLine(cp.Name & ": " & cp.Value)
                If cp.Name = "Extended Properties" Then
                    cn.ConnectionString = cp.Value
                End If
            Next
        End If
 
        cn.Open()
 
    End Sub
End Class