Vba 使用MS Access执行SQL存储过程

我需要在MS Access 2013中执行一个存储过程。我使用Access作为前端接口，它连接到两个数据库。一个数据库有几个存储过程。我需要在访问中按下按钮来执行这些操作

数据库通过SQL Server身份验证连接。我在Access中启动了一个按钮，下面是这个按钮后面的VBA代码。它是空的，只需要更多代码即可运行：

Private Sub UpdateItems_Click()     
End Sub

以下是用于建立连接和存储过程名称的参数：

服务器名称：BOX\SQL2014
用户名：sa
密码：123456PS
数据库：6位
存储过程名称：spRefreshItems

请不要让我问类似的问题。我不使用VBA代码，我无法从稍微不同但相似的示例中模仿一些东西

试试这个：

Sub ExecSP()
    Dim connection As Object: Set connection = CreateObject("ADODB.Connection")
    Dim rs As Object: Set rs = CreateObject("ADODB.Recordset")
    With connection
        .ConnectionString = "DRIVER=SQL Server;SERVER=BOX\SQL2014;Trusted_Connection=Yes;APP=2007 Microsoft Office system;DATABASE=SixBit;User ID=sa;Password=123456PS"
        .CommandTimeout = 0
        .Open
    End With
    '<<Replace SchemeName by Scheme name of the SP>>'
    Set rs = connection.Execute("EXEC SchemeName.spRefreshItems") 
    connection.Close: Set rs = Nothing: Set connection = Nothing
    MsgBox "Done!"
End Sub

Sub-ExecSP（）
将连接设置为对象：设置连接=CreateObject（“ADODB.connection”）
Dim rs As Object:Set rs=CreateObject（“ADODB.Recordset”）
有联系
.ConnectionString=“DRIVER=SQL Server；Server=BOX\SQL2014；Trusted_Connection=Yes；APP=2007 Microsoft Office system；DATABASE=SixBit；User ID=sa；Password=123456PS”
.CommandTimeout=0
打开
以
''
设置rs=connection.Execute（“EXEC SchemeName.spRefreshItems”）
连接关闭：设置rs=Nothing：设置连接=Nothing
MsgBox“完成！”
端接头

另外，SO不是为了让人们为您编写代码。这是为了教你如何解决你遇到的问题。因此，如果你不愿意从类似的例子中学习，这不会很顺利。不要重复同样的问题。编辑您现有的帖子以向其添加任何新信息。我确实执行了sp，但出现异常错误。我试图摆脱那个错误。这是为我工作的代码