Dim range As Word.Range = oTable.Range
Dim ff As Word.FormField
ff = range.FormFields.Add(Range:=oTable.Cell(1, 2).Range, Type:=Word.WdFieldType.wdFieldFormCheckBox)
ff.Enabled = True