运行时错误429; 无法创build对象（Excel 2007）

我的应用程序如下所示：我正在使用Access 2007数据库进行数据存储，并使用Excel 2007作为前端。 我正在使用Microsoft.ACE.OLEDB.12.0 ADODB连接并引用了所需的库（dll）。 我的下面的代码是在一个Excel模块，并在12台机器中的9个。 另一个是得到“运行时错误429”并且在尝试创buildADODB对象的代码的第25行失败。 任何人都可以帮我解决计划，找出这些机器有什么问题吗？ 我认为这可能是一个registry问题，但是想看看你们要说什么。 所有机器都安装了XP SP3操作系统和Office 2007。 感谢您的任何帮助。

交叉发布在http://www.mrexcel.com/forum/excel-questions/723189-runtime-error-429%3B-cant-create-object.html

Public Sub AccessData() Dim UserID As String Dim adoConn As ADODB.Connection Dim adoRS As ADODB.Recordset Dim sSQL, ConnSQL As String Dim IDName As String On Error GoTo err_handler 10: UserID = Environ("USERNAME") 20: pwd = Worksheets(2).Cells(8, 2).Value 25: Set adoConn = CreateObject("ADODB.connection") 26: Set adoRS = CreateObject("ADODB.Recordset") 30: ConnSQL = Worksheets(2).Cells(10, 3).Value 35: adoConn.ConnectionString = ConnSQL 40: adoConn.Open 50: adoRS.CursorType = adOpenDynamic 60: adoRS.CursorLocation = adUseClient 70: adoRS.ActiveConnection = adoConn 90: sSQL = "SELECT fname, lname FROM Staff WHERE userid ='" & UserID & "'" 100: adoRS.Source = sSQL 110: adoRS.Open 120: Worksheets(2).Cells(2, 2).CopyFromRecordset adoRS 130: adoRS.Close 140: adoConn.Close 150: Set adoRS = Nothing 160 Set adoConn = Nothing 170: Call GetPlans(UserID) err_handler: MsgBox "The code failed at line " & Erl, vbCritical End Sub