Option Explicit

Private Declare Function SQLDataSources Lib "ODBC32.DLL" _
 (ByVal henv&, ByVal fDirection%, ByVal szDSN$, _
 ByVal cbDSNMax%, pcbDSN%, ByVal szDescription$, _
 ByVal cbDescriptionMax%, pcbDescription%) As Integer
 
Private Declare Function SQLAllocEnv% Lib "ODBC32.DLL" (env&)

Const SQL_SUCCESS As Long = 0
Const SQL_FETCH_NEXT As Long = 1

Sub GetDSNs()
 Dim i As Integer
 Dim sDSNItem As String * 1024
 Dim sDRVItem As String * 1024
 Dim sDSN As String
 Dim sDRV As String
 Dim iDSNLen As Integer
 Dim iDRVLen As Integer
 Dim lHenv As Long

 On Error Resume Next
 If SQLAllocEnv(lHenv) <> -1 Then
   Do Until i <> SQL_SUCCESS
     sDSNItem = Space$(1024)
     sDRVItem = Space$(1024)
     
     i = SQLDataSources(lHenv, SQL_FETCH_NEXT, _
     sDSNItem, 1024, iDSNLen, sDRVItem, 1024, iDRVLen)
     
     sDSN = Left$(sDSNItem, iDSNLen)
     sDRV = Left$(sDRVItem, iDRVLen)
         
     If sDSN <> Space(iDSNLen) Then
       Debug.Print sDSN
       'Debug.Print sDRV
     End If
   Loop
 End If
End Sub