如何使用access vba调用SQL-Server用户定义函数

Function CallSqlServerFunction() As Variant
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim returnValue As Variant
    
    ' 创建SQL Server连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，包括SQL Server服务器名称、数据库名称和身份验证方式
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=SQLServerName;Initial Catalog=DatabaseName;Integrated Security=SSPI;"
    
    ' 打开连接
    conn.Open
    
    ' 创建SQL查询语句，调用用户定义函数
    strSQL = "SELECT dbo.MyFunction() AS ReturnValue;"
    
    ' 执行查询
    Set rs = conn.Execute(strSQL)
    
    ' 读取返回值
    returnValue = rs("ReturnValue")
    
    ' 关闭连接和结果集
    rs.Close
    conn.Close
    
    ' 返回函数值
    CallSqlServerFunction = returnValue
End Function

SELECT CallSqlServerFunction() AS Result;