Facing 'run-time error -2147217871 (80040e31) Automation error' in excel VBA

Hi guys,

I am working on Excel 2007 macros. My requirement is to access MS SQL server DB from excel, using VBA. I am just trying to pull some data by connecting to DB, but facing this issue: 'Facing 'run-time error -2147217871 (80040e31) Automation error' in excel VBA'

Below is the chunk of code I am using:

Please Login or Register  to view this content.

For reference, I have pasted here both the connection strings which I tried. With both I am facing the same issue.

Any help is appreciated. Thanks.

Moderator Note:

Pls use code tags around your code next time as per forum rules.

Where are you getting the error?

I am getting this error when I run the macro.