在MS Access中，创建动态查询后，如何使用记录集中的相应值更新窗体上的文本框？

  ```vba

  Dim valueToUpdate As Variant

  ```

  ```vba

  recordset.MoveFirst

  ```

  ```vba

  valueToUpdate = recordset.Fields("ValueField").Value

  ```

  ```vba

  TextBoxToUpdate.Value = valueToUpdate

  ```

Private Sub Form_Load()
    Dim db As DAO.Database
    Dim recordset As DAO.Recordset
    Dim valueToUpdate As Variant
    
    ' 打开数据库
    Set db = CurrentDb
    
    ' 创建动态查询并保存结果到记录集
    Set recordset = db.OpenRecordset("SELECT ValueField FROM TableName")
    
    ' 将记录集的指针移动到第一条记录
    recordset.MoveFirst
    
    ' 获取相应值并赋给变量
    valueToUpdate = recordset.Fields("ValueField").Value
    
    ' 将值赋给文本框
    TextBoxToUpdate.Value = valueToUpdate
    
    ' 关闭记录集和数据库
    recordset.Close
    db.Close
End Sub