請教有關ADO的問題(編號：858)

請幫忙看看錯在那??　THANKS
錯誤訊息:執行階段錯誤 3706
ADO找不到指定的提供者

程式在自己的PC上可正確執行,但一裝到同事的PC就發生上述錯誤
相關程式碼:
Dim conn As New ADODB.Connection
　 Dim rs As New ADODB.Recordset
　 Dim ConnStr As String, i As Integer, SQL As String
　
　 ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
　　　　　　 "Data Source=\\vs17a\message\IP.mdb"
　
　 SQL = "Select * From IP Order By USER"
　
　 conn.Open ConnStr
　 rs.CursorLocation = adUseClient
　 rs.Open SQL, conn, adOpenKeyset, adLockPessimistic
　 rs.MoveFirst
　
　 List1.Clear
　 List2.Clear

While Not rs.EOF
　　 List1.AddItem rs.Fields(0).Value
　　 List2.AddItem rs.Fields(1).Value
　　 rs.MoveNext
　 Wend

rs.Close
　 conn.Close
　 Set conn = Nothing