如何遍历记录集并基于记录集更新表字段值？

Question

我正在将类似的表导入MS Access数据库，以将它们组合成更大的数据集。大多数列的第一行是日期字段。在导入过程中，当第一行成为字段名称时，其中一些日期保留为日期“ 2018年1月”，其中一些变为数字“ 44001”。我正在编写代码以引用存储为字段名称的任何数字，并将它们转换为日期值（例如，从44001到2018年1月）。

Private Sub Command0_Click()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim rs As DAO.Recordset
Dim CurrentHead As String
Dim UpdateHead As String

Set db = CurrentDb
Set tdf = db.TableDefs("PL_1")
Set rs = db.OpenRecordset("TableUpdates")

rs.MoveFirst

Do While Not rs.EOF
For Each fld In tdf
If fld.Name = CurrentHead Then
fld.Name = UpdateHead
End If
rs.MoveNext
Loop

db.Close
Set db = Nothing
Set fld = Nothing
Set tdf = Nothing

MsgBox "Changed"

End Sub