Access 2010无法将记录集绑定到combobox

Win7，64位，Access 2010，ADO 6.1，应用服务器为Win server 2008R2

这真的很奇怪。下面的代码可以在我的本地机器上运行，但当我登录到应用服务器并运行相同的程序时，它就不起作用了

Dim cmd As ADODB.Command

If cboContractStatus.ListCount <= 1 Then
    Set cmd = getADODBCommand("P_getContractStatus")
    Set cboContractStatusExist.Recordset = rs
    Set cmd = Nothing
End If

If comboAffiliates.ListCount <= 1 Then
    Set cmd = getADODBCommand("B_affGetAllNames")
    Set comboAffiliates.Recordset = cmd.Execute
    Set cmd = Nothing
End If

---

最后一件事——在我昨天编写这段代码时，它工作得很好。

每个模块的顶部都声明了Option Explicit，vba编译命令成功了吗？首先要做的是使存储过程更简单，看看这是否能解决问题：从tbl_分支中选择FirstName。或者，将其与第一个组合框相同，然后更改内容直到其损坏。昨天它在两台机器上都工作，而今天它只在一台机器上工作？你看不出代码有什么不同吗？我在想，如果昨天的代码起作用的话，会有不同。很抱歉，我花了这么长时间才回到这个问题上来——其他的火灾需要扑灭。选项Explicit贯穿始终。我会尽量简化程序，尽管这只是一个名字列表，在应用程序的许多地方都会用到。也许我夸大了昨天的事情。它实际上是相同的代码-没有更改。在一台机器上工作，而不是在另一台机器上工作。

SELECT
    FirstName + ' ' + LastName affName
FROM
    tbl_Affiliate
ORDER BY
    FirstName