The ODBCTOOL.DLL library contains three functions that make it easier to manage DSNs. To run the following code you must add a reference to the “ODBC Driver & Data Source Name Functions” library to your References dialog box. If you don’t find this library listed in the References list, use the Start-Find dialog to locate it (it should be in the Microsoft Visual StudioCommonToolsAPE directory).
To get the list of installed DSNs you can use the following code:
' Fill a listbox control with the list of all available DSNsDim odbcTool As New ODBCTool.DsnDim Dsn() As String, i As LongIf odbcTool.GetDataSourceList(Dsn()) Then ' a True return value means success lstDataSources.Clear For i = 0 To UBound(dsn) lstDataSources.AddItem dsn(i) NextElse ' a False value means error MsgBox "Unable to read DSN list", vbExclamationEnd If