Private Sub AddColum
        Dim dbs As DAO.Database
        Dim tdf As DAO.TableDef

        Set dbs = CurrentDb()       
        Set tdf = dbs.TableDefs("Table1")
        
        'добавляю поле, но оно отображается как 0/1
        tdf.Fields.Append tdf.CreateField("dan", dbBoolean)
           
        Set tdf = Nothing
        Set dbs = Nothing
End Sub

Private Sub AddColumToWord()

        Dim dbs As DAO.Database        
        Dim tdf As DAO.TableDef
        Dim fld As Field
        
        Set db = CurrentDb()
        Set tdf = db.TableDefs("Table1")
        Set fld = tdf.CreateField("dan", dbBoolean)
        tdf.Fields.Append fld

        With db.TableDefs("Table1").Fields("dan")
            .Properties.Append .CreateProperty("DisplayControl", 3, 106)
        End With

        db.TableDefs.Refresh
               
End Sub