Jag har en fundering, eftersom du kanske har dina "timer projekt" kvar.

Blir det någon skillnad om du skiftar plats på stängningen av rs/con

....

con(n).Open "DRIVER={SQL Server};SERVER=SQLSERVER;DATABASE=Pubs;UID=sa"

rst.Open "select * from authors", con(n)

con(n).Close
Set con(n) = Nothing

rst.Close
Set rst = Nothing

...