開啟之DBF資料庫執行階段錯誤(編號：2377)

本人於公司內安裝 自行設計之程式(VB6撰寫開啟DBF 資料庫), 有些電腦可正常執行
有部份卻出現下列錯誤訊息:

DBF 資料庫問題??
用 Adodc1 開啟之 DBF 資料庫為何在執行:
1. Adodc1.Recordset.RecordCount 將出現

執行階段錯誤'-2147467259(80004005)':
　　　　　 資料提供者或其他服務回傳電子郵件狀態

2. 執行 Adodc1.Recordset.MoveLast 或　Adodc1.Recordset.EOF 時會出現錯誤.

本人在公司內試過多台電腦, 是否應每台系統不一, (有Win95,Win98版),
有些可順利執行有些則會出現問題, 請教該如何解決??


* 開啟 Adodc1 之方式如下:
Dim ConnStr1 As String
　　Dpath = "SourceDB=" & App.Path & ";"　　　　 '可隨路徑變更的開啟之 DBF　　
　　ConnStr1 = "Provider=MSDASQL.1;" & _
　　　　　　　"Driver=Microsoft Visual FoxPro Driver;" & _
　　　　　　　Dpath & _
　　　　　　　"SourceType=DBF"

Adodc1.ConnectionString = ConnStr1
　　Adodc1.CommandType = adCmdText
　　Adodc1.RecordSource = "select * from XHOME"
　　Adodc1.Refresh

請問高手需如何解決, 萬分感謝.
本人猜想是不同系統環境的關係, 但應如何解決?
請指點.