Yes, Greg, I think you are right. I'm just not clever enough to code this.

I did the following:
Debug.Print ActiveWorkbook.PivotCaches(i).Connection
Which yielded:
ODBC;DSN=XXX;UID=XXX;DBQ=XXX;ASY=OFF;

My unsucessful attempt at coding is:
ActiveWorkbook.PivotCaches(i).MakeConnection
Connection:="ODBC;DSN=XXX;UID=XXX;PWD=XXX;DBQ=XXX; ASY=OFF;"

I really appreciate any help you can give me...

"GregR" wrote:

Cinque, try this

"ODBC;DSN=XXX;Description=XXX;UID=userID;PWD=Passw ord;APP=Microsoft
Office 2003;WSID=XXX;DATABASE=Intranet;LANGUAGE=us_englis h
Supply your own parameters.

Greg