No it is also not working. I am getting the same error. I will just quote my connection string:

with cnn#########
.Provider = "MSDASQL.1"
.ConnectionTimeout = 33
.ConnectionString = "DSN=" & strDsn & ";uid=***;PWD=****;OEMTOANSI=YES"
.CursorLocation = adUseClient
.Open
End With






Initiative is to success what a lighted match is to a candle...