如何将Access查询结果保存到VBA中的对象中？

Sub SaveQueryResultToVBAObject()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    
    ' 打开数据库
    Set db = CurrentDb
    
    ' 创建查询对象
    Set qdf = db.CreateQueryDef("", "SELECT * FROM TableName")
    
    ' 执行查询并保存结果
    Set rst = qdf.OpenRecordset()
    
    ' 遍历查询结果
    Do Until rst.EOF
        ' 处理每一条记录
        ' 例如，将字段值保存到变量中
        Dim fieldValue As Variant
        fieldValue = rst.Fields("FieldName").Value
        
        ' 继续下一条记录
        rst.MoveNext
    Loop
    
    ' 关闭记录集和查询对象
    rst.Close
    Set rst = Nothing
    Set qdf = Nothing
    
    ' 关闭数据库连接
    db.Close
    Set db = Nothing
End Sub