ADODB -创建一个VBA函数来减少重复代码？

Function ExecuteQuery(query As String) As ADODB.Recordset
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    ' 创建连接对象
    Set conn = New ADODB.Connection
    
    ' 设置连接字符串，根据实际情况修改
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名;User ID=用户名;Password=密码;"
    
    ' 打开连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = New ADODB.Recordset
    
    ' 执行查询
    rs.Open query, conn
    
    ' 关闭连接
    conn.Close
    
    ' 返回记录集
    Set ExecuteQuery = rs
End Function