MS Access VBA存储过程将值返回到文本框

Public Function GetResult() As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    ' 连接到数据库
    Set db = CurrentDb
    
    ' 构建SQL语句
    strSQL = "SELECT ColumnName FROM TableName"
    
    ' 执行SQL语句
    Set rs = db.OpenRecordset(strSQL)
    
    ' 检查是否有结果
    If Not rs.EOF Then
        ' 将结果赋值给文本框
        GetResult = rs.Fields("ColumnName").Value
    End If
    
    ' 关闭记录集和数据库连接
    rs.Close
    db.Close
    
    ' 释放对象
    Set rs = Nothing
    Set db = Nothing
End Function