Ti riporto il codice che ho trovato in un libro:
Devi aggiungere un riferimento alla libreria "ODBC Driver & Data Source Name Functions" ODBCTOOL.DLL

codice:
Dim odbctool as new odbctool.dsn
Dim Dsn() asString, i as long
If odbctool.GetDataSourceList(Dsn()) Then
'un valore di ritorno True significa successo
For i= 0 to UBound(dsn)
   LstDataSources.AddItem dsn(i)
Next
Else 
Msgbox " Unable to read DSN LIST",vbExclamation
End If
Spero di aver copiato correttamente le istruzioni, fammi sapere se era quello che cercavi.
Ciao