MS访问。VBA。如何在临时表不存在时创建包含1条记录的临时表

Sub CreateTempTable()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim rst As DAO.Recordset
    
    ' 打开当前数据库
    Set db = CurrentDb
    
    ' 检查临时表是否已存在
    If TableExists("TempTable") Then
        ' 如果存在，则删除该表
        db.TableDefs.Delete "TempTable"
    End If
    
    ' 创建新的临时表
    Set tdf = db.CreateTableDef("TempTable")
    
    ' 添加字段到临时表
    Set fld = tdf.CreateField("ID", dbLong)
    tdf.Fields.Append fld
    
    ' 添加临时表到数据库
    db.TableDefs.Append tdf
    
    ' 打开临时表的记录集
    Set rst = db.OpenRecordset("TempTable")
    
    ' 添加一条记录到临时表
    rst.AddNew
    rst("ID").Value = 1
    rst.Update
    
    ' 关闭记录集和数据库
    rst.Close
    db.Close
    
    ' 释放对象变量
    Set rst = Nothing
    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Sub

Function TableExists(tableName As String) As Boolean
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    
    ' 打开当前数据库
    Set db = CurrentDb
    
    ' 检查表是否存在
    For Each tdf In db.TableDefs
        If tdf.Name = tableName Then
            TableExists = True
            Exit Function
        End If
    Next tdf
    
    ' 关闭数据库
    db.Close
    
    ' 释放对象变量
    Set tdf = Nothing
    Set db = Nothing
    
    ' 如果表不存在，则返回False
    TableExists = False
End Function