activeworkbook.connections refresh stopped working

[BassMon]

For many years we were able to automatically update the connection to a database and refresh the data on the spread sheet.

We used:
With ActiveWorkbook.Connections("Query from Calibration Data").ODBCConnection

.Connection = "ODBC;DSN=Calibration Data;UID=<valid_id>;PWD=<valid_password>"
</valid_password></valid_id>​

<valid_id><valid_password> .Refresh
</valid_password></valid_id>​

<valid_id><valid_password> End With

As of late it no longer updates the data in the spread sheet from the data base, I am able to manually update the data in the spread sheet, but the macro (even when stepped through) no longer updates the data.

Is there a new method I must now use or a better way to refresh the spread sheets data?

TY</valid_password></valid_id>