Windows 7 SP1 導致含有 ADO 的程式失效問題

真是....敗了!! 怎老是要去舊迎新勒..
----------------------------------------
須調整寫法:
原:
Dim Conn As New ADODB.Connection

改:
Dim Conn As Object
Set Conn = CreateObject("ADODB.Connection")
----------------------------------------
相關請參考:
1.參考1
2.參考2
3.參考3
4.參考4