如何通过VBA在后台运行存储过程

Sub RunStoredProcedure()
    Dim conn As Object
    Dim cmd As Object
    
    ' 创建数据库连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置数据库连接字符串
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 创建命令对象
    Set cmd = CreateObject("ADODB.Command")
    
    ' 设置命令对象属性
    cmd.ActiveConnection = conn
    cmd.CommandType = 4 ' adCmdStoredProc，表示执行存储过程
    cmd.CommandText = "存储过程名称"
    
    ' 执行存储过程
    cmd.Execute
    
    ' 关闭数据库连接
    conn.Close
    
    ' 释放对象
    Set cmd = Nothing
    Set conn = Nothing
End Sub