如何在VBA中更改存储过程？

Sub ChangeStoredProcedure()
    Dim conn As Object
    Dim cmd As Object
    Dim strSQL As String
    
    ' 创建连接对象
    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
    
    ' 设置SQL语句
    strSQL = "ALTER PROCEDURE 存储过程名称 AS " & _
             "BEGIN " & _
             "    -- 在这里编写存储过程的新内容 " & _
             "END"
    
    ' 设置命令对象的SQL语句
    cmd.CommandText = strSQL
    
    ' 执行SQL语句
    cmd.Execute
    
    ' 关闭连接
    conn.Close
    
    ' 释放对象
    Set cmd = Nothing
    Set conn = Nothing
End Sub