Grabar en una tabla las variables almacenadas en TempVars

Le preparé este ejemplo:

TABLA

Para el ejemplo defino en la ventana de inmediato las siguientes TempVars:

Tempvars!ciudad="Cali"
Tempvars!usuario="idusuario"
Tempvars!nombre="Eduardo"
Tempvars!apellidos="Pérez Fernández"
Tempvars!Edata=65
Tempvars!fechanac=CDATE("25/09/1957")

FORMULARIO

CÓDIGO BOTÓN ACTUALIZAR

Private Sub btnActualizar_Click()
    Dim rs  As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tblTempVar", dbOpenTable)
    CurrentDb.Execute "DELETE FROM tblTempVar", dbFailOnError
    With rs
        Dim Var As TempVar
        For Each Var In TempVars
            .AddNew
            !NombreVar = Var.Name
            !ValorVar = Nz(Var.Value, "{NULL}")
            !TipoVar = TypeName(Var.Value)
            .Update
        Next Var
    End With
    rs.Close
    Set rs = Nothing
   Me.Requery
End Sub

Igualmente, le dejo una función para ver en la ventana de inmediato los TempVars

CÓDIGO DE LA FUNCIÓN

Function ver_tempvars()
' Obtener en la ventana de inmediato las variables TempVars
 Dim z As TempVar
 For Each z In TempVars
   Debug.Print "NOMBRE : " & z.Name & vbCrLf & "VALOR  :" & z.Value & vbCrLf & "TIPO   :" & TypeName(z.Value) & vbCrLf
 Next
End Function

Ejemplo de llamada y resultado:

?ver_tempvars()
NOMBRE : ciudad
VALOR :idusuario
TIPO :String
NOMBRE : nombre
VALOR :Eduardo
TIPO :String
NOMBRE : apellidos
VALOR :Pérez Fernández
TIPO :String
NOMBRE : Edata
VALOR :65
TIPO :Integer
NOMBRE : fechanac
VALOR  :25/09/1957
TIPO :Date

Como tengo su correo le estoy enviando el ejemplo.