Binaryworld - CreateConnString - Using the OLEDB dialog to create an OLEDB connectio ... [ VB.net -> ADO.net ]

' This function opens the OLEDB dialog to create an OLEDB connection string,
' and return the selection
' It requires the OLEDB Service Component 1.0 Type Library to work

Public Function CreateConnString(Optional ByVal parentForm As Form = Nothing) _
  As String
  Dim dataLink As Object = Microsoft.VisualBasic.Interaction.CreateObject _
    ("DataLinks")

  'On Error Resume Next
  Dim handle As Integer = 0
  If Not parentForm Is Nothing Then
    handle = parentForm.Handle.ToInt32()
  End If

  ' the following statement makes the property modal respect to the current
  ' form
  dataLink.hWnd = handle
  ' display the dialog
  Dim o As Object = dataLink.PromptNew()
  If o Is Nothing Then Return "" Else Return o.ConnectionString.ToString()
End Function