You may have additional things to do, but this is the core
idea:
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Dim prp As Property
Set db = CurrentDb()
Set tdf = db.TableDefs("zJunk")
Set fld = tdf.Fields!FieldName
Set prp = fld.CreateProperty("DisplayControl", _
dbInteger, acCheckBox)
fld.Properties.Append prp
Set prp = Nothing
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing