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