＆＃34;错误3151 ODBC连接失败＆＃34; - 升级到Win 7后

Question

我有一个网络Excel文件，使用vba代码连接到Access数据库。 几个工作站从Win XP升级到Win 7 32位和Office 2010。 在升级之后，这些工作站现在无法连接到它们并且它们不断弹出运行时错误3151.

发生了什么事？我该如何解决这个问题？

Public Const dest_db_file = "\\na02.ds-invest.local\data$\Gemel\Dash\pizulim\pizulim.mdb"

Sub load_hafkadot()

Dim the_db As Database
Dim the_rec As Recordset

If Range("c3").Value = "" Then

    Set the_db = OpenDatabase(dest_db_file)

    the_str = "select * from Viewhafkadot_mavar_masik where hesbon='" & Format(Range("c2").Value, "000000") & "'"
    Set the_rec = the_db.OpenRecordset(the_str) 'this is the line that causes the prblem
End sub