Thanks a bunch. Your timing was absolutely perfect. I was just cracking my knuckles to write something like this when "Reply" chimed on my workstation.
I made one slight change to make the search EXACT and case-insensitive (VFP7-specific):
lFound = (ASCAN(aKeyVals, "OLE DB Provider", -1, -1, 0, 7) <> 0)
Again, thanks for saving me a chunk of work.
Regards. Al
"Violence is the last refuge of the incompetent." -- Isaac Asimov
"Never let your sense of morals prevent you from doing what is right." -- Isaac Asimov
Neither a despot, nor a doormat, be
Every app wants to be a database app when it grows up