VBA to SQL存储过程参数格式问题

Sub CallStoredProcedure()
    Dim conn As Object
    Dim cmd As Object
    Dim param1 As Integer
    Dim param2 As String
    
    ' 创建数据库连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置数据库连接字符串
    conn.ConnectionString = "your_connection_string"
    
    ' 打开数据库连接
    conn.Open
    
    ' 创建命令对象
    Set cmd = CreateObject("ADODB.Command")
    
    ' 设置命令对象的属性
    With cmd
        .ActiveConnection = conn
        .CommandType = 4 ' adCmdStoredProc，表示执行存储过程
        .CommandText = "your_stored_procedure_name" ' 存储过程的名称
        
        ' 添加参数
        param1 = 123 ' 参数1的值
        param2 = "abc" ' 参数2的值
        
        .Parameters.Append .CreateParameter("param1", adInteger, adParamInput, , param1)
        .Parameters.Append .CreateParameter("param2", adVarChar, adParamInput, Len(param2), param2)
    End With
    
    ' 执行存储过程
    cmd.Execute
    
    ' 关闭数据库连接
    conn.Close
    
    ' 释放对象
    Set cmd = Nothing
    Set conn = Nothing
End Sub