[VB6 ] ADOX使用問題

[irishmove (王同學自助搬家)]

使用VB6
宣告ADOX物件

Dim tmpCat As ADOX.Catalog
        Dim tmpTbl As ADOX.Table
        Dim tmpCol As ADOX.Column

        Set tmpCat = New ADOX.Catalog
        Set tmpTbl = New ADOX.Table
        Set tmpCol = New ADOX.Column

        tmpCat.ActiveConnection = strTmpConn


呼叫tmpCat.ActiveConnection設定資料來源
此段程式碼大部分時候OK，
24小時在跑有時幾個月沒問題
有時一個星期就跳一次錯誤，電腦重開後又OK

使用ON error catch到的錯誤代碼也找不到相對應的解釋
請問大家有遇過這樣的問題嗎?

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 175.181.233.50
→ TeemingVoid:錯誤代碼、錯誤訊息是什麼?