[2005] Listing DSNs

What is the simplest way to enumerate the local and system DSNs, either by function call or built in dialog? I tried using a VB6 sample snippet which used the "SQLDataSources" function, I get the error "Attempted to read or write protected memory. This is often an indication that other memory is corrupt."

Thanks!

Also, at the same time, the immediate window displays "A first chance exception of type 'System.AccessViolationException' occurred in ODBCMigrate.exe"