Visual Basic - ODBC en una combo

Hola, quisiera cargar una combo con las ODBC que tengo creadas en mi PC.
El problema es que no se en que directorio estan almacenadas las ODBC para asi poder cargar la combo con sus nombres.
He hecho una busqueda con el buscador de windows pero no las he podido encontrar.
Desde ya muchas gracias
Mauro

Hola Mauro:

Fijate en Panel de Control - Fuente de Datos ODBC.

Saludos
Ricardo

Gracias Ricardo por responderme, pero en realidad mi pregunta era como poder llenar una combo con los DSN creados en la compu, pero no manualmente, sino hacer una rutina que me devuelva todos los DSN creados y asi poder llenar dinamicamente la combo con los nombres de las connexiones.

Ya encontre una rutina que hace esto, y es con dos API ODBC, si te interesa te la puedo mandar por mail.

Ok Mauro mandamelo.

Saludos
Ricardo

Fijate con esto:

Declare Function SQLDrivers Lib "odbc32.dll" (ByVal HENV As Long, _
ByVal Direction As Long, _
ByVal Description As String, _
ByVal DescriptionMax As Integer, _
ByRef DescriptionLen As Integer, _
ByVal Attributes As String, _
ByVal AttributesMax As Integer, _
ByRef AttributesLen As Integer) As Integer

Declare Function SQLDataSources Lib "odbc32.dll" (ByVal HENV As Long, _
ByVal Direction As Long, _
ByVal DSN As String, _
ByVal DSNMax As Integer, _
ByRef DSNLen As Integer, _
ByVal Description As String, _
ByVal DescriptionMax As Integer, _
ByRef DescriptionLen As Integer) As Integer

gracias celia
aca les mando el codigo de lo que hice

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

Public Declare Function SQLAllocEnv% Lib \"ODBC32.DLL\" (env&)

Public Const SQL_SUCCESS As Long = 0
Public Const SQL_FETCH_NEXT As Long = 1
Private Sub GetDSNsAndDrivers()
\'Procedimiento que recupera los nombres de las DSNs y DRIVERS que existen en un PC y los ingresa en una combobox
\'utilisa las APIs SQLDataSources y SQLAllocEnv

On Error Resume Next

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 \'Pointeur de l\'environement

\'lit les DSN
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 = VBA.Left(sDSNItem, iDSNLen)
sDRV = VBA.Left(sDRVItem, iDRVLen)

If sDSN <> Space(iDSNLen) Then
CboODBC.AddItem sDSN
CboODBC.AddItem sDRV
End If
Loop
End If

CboODBC.ListIndex = 0

End Sub

%