dim x as string

x = DLookup("DateUpdate", "MSysObjects", "[Name] ='" & "表1" & "'"))

dim x as string

x = DLookup("DateCreate", "MSysObjects", "[Name] ='" & "表1" & "'"))