I was thinking about adding comments and possibly a few more checks maybe on an Error event on a class. It would be nice to have your changes if you have added them already.

Also, it wasn't clear that you wanted to create something like the data links dialog. If you want to pop-it up programmatically all you need to do is:

oDLink = CreateObject("Datalinks")
oDLink.PromptNew()

If you are able to test the connection succesfully you can get the return value from the function and it will be an ADO connection object. I have another download here that does this. It's called something like "Get parameters collection".

>>
>>No problem and thanks for the addition. Did you find any providers that weren't found by the routine?
>>
>>The list should be the same as what the data link edit/create dialog shows. (for example when you open a .udl file)
>
>No, I didn't find any others. I'm not going through all those classes individually - I just used the Search in RegEdit.
>
>Yes, the list is the same as the Data Link dialog. Clearly, your code duplicates its functionality.
>
>I think the only issues might be:
>- if the registry entries for OLE DB 3.0 change significantly the routine will break. Hooking into the OLE DB enumerator would help here because an upgrade to a new version would also include new enumerator(s).
>- apparently the OLE DB enumerator can enumerate other enumerators (what a mouthful) so 3rd parties could use different registry structures, as long as their enumerator could be found by MS's. Don't know how important this is in the real world.
>
>I found a VB sample for the Data Link API yesterday and I tried playing around with it a bit: http://www.sqlmag.com/Articles/Index.cfm?ArticleID=9640
>
>I could only get as far as

oDataLink = CREATEOBJECTEX("MSDASC.MSDAINITIALIZE", "", "")

which runs, and Intellisense shows some methods, but the only docs for the methods were C++ and looked pretty ugly.
>
>BTW I added some comments to your code - I don't know how far along you are with your UT upload but I could send you the modified version if you wish.