ODBC DSN List

[Negative0]

I have some code to access the DSNs on the local machine, but I am getting an error

Dim objDSN As Dsn
Dim strDSArray() As String
Dim I As Long

Set objDSN = New Dsn

objDSN.GetDataSourceList strDSArray()

'list drivers

'list dsns
For I = LBound(strDSArray) To UBound(strDSArray)
lstDNS.AddItem strDSArray(I)
Next I

I just need to know what reference I need to add to access the Dsn. I get an error that user-type not defined.

Thanks in advance

[Tonatiuh]

As far as I know, there is not a DSN dataa type. May be it could be posible by another way. What exactly do you want to do? Do you want a list of DSN or alist of ODBC drivers?

[Negative0]

I just want the DSN's. I got this code off this site and nobody said what references you need to make to get this code to work.

[Tonatiuh]

You can get them from registry.

The User DSN are in:
HKEY_CURRENT_USER\Software\ODBC\ODBC.INI

The System DSN are in:
HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI

Good Look!

[Clunietp]

Add a reference to:

ODBC Driver & Data Source Name Functions

[Negative0]

That reference is not in my references list. What is the DLL that is associated with that reference.

[Tonatiuh]

In my PC is: \Windows\System\msado15.dll

Maybe you need to install the MDAC. You can download it from microsoft page.

[Negative0]

Thanks guys you helped out a lot.