Public Function CreateProp()
Dim db As Database, doc As Document
Dim prop As Property
Set db = CurrentDb
Set doc = db.Containers("Forms").Documents("Employees")
Set prop = doc.CreateProperty("EmpCode", dbLong, 1)
doc.Properties.Append prop
doc.Properties.Refresh
Set doc = Nothing
Set prop = Nothing
Set db = Nothing
End Function