I\'m following code I found on another site. Here\'s the basics of my code:
Dim SQL As String
Dim connString As String
connString = \"ODBC;DSN=DB01;UID=;PWD=;Da
Try setting the QueryTable.MaintainConnection property to False...
"Set MaintainConnection to True if the connection to the specified data source is to be maintained after the refresh and until the workbook is closed. The default value is True! And there doesn't seem to be a UI check box for this (Read/write Boolean)"