' Fill a listbox control with the list of all available DSNs
Dim odbcTool As New ODBCTool.Dsn
Dim Dsn() As String, i As Long
If odbcTool.GetOdbcDriverList(Dsn()) Then
' a True return value means success
lstOdbcDrivers.Clear
For i = 0 To UBound(dsn)
lstOdbcDrivers.AddItem dsn(i)
Next
Else
' a False value means error
MsgBox "Unable to read ODBC driver list", vbExclamation
End If