大多數人可能認為軟件升級是不會有問題的，事實上，在升級過程中都會對其中***享的壹些組件也進行升級，但是其它程序可能不支持升級後的組件從而導致各種問題。
Excel執行VBA時顯示進度條。
i為代碼的for循環，或者計步器
Application.statusbar=”完成 “&format(i/10000*100,”0.00”)
突然想起以看過壹遍關於優化SQL查詢的文章，裏面對SQL查詢優化有壹個比較詳細的說明，特別比較了在已建立索引的字段上進行查詢與未建立索引字段上查詢速度的差別，想起壹句話，“所有快速查找都是基於排序的”，於是馬上修改代碼，添加對rsGzb中的工號字段進行排序代碼（rsGzb.Sort = "gh ASC"），運行，出錯（運行時錯誤3251：當前提供程序不支持排序或過濾所必須的界面），查看sort屬性的幫助，發現裏面有壹條說明“此屬性要求將 CursorLocation 屬性設置為 adUseClient。”，於是添加代碼(cnGzb.CursorLocation = adUseClient)，再運行。1秒內就完成了操作
下面就是程序中的那幾句關鍵代碼(第1名和第3句在這兒的作用相同，可以只寫壹句）
cnGzb.CursorLocation adUseClient
Set rsGzb = New ADODB.Recordset
rsGzb.CursorLocation = adUseClient 'CursorLocation對於關閉的recordset對象可讀可寫，對於打開的recordset對象只讀
rsGzb.Open sSqlCommand, cnGzb, adOpenKeyset, adLockBatchOptimistic