テーブル作成クエリーでYes/No型のフィールドを作成する際の注意点

CREATE TABLE や CreateTableDefﾒｿｯﾄﾞでYes/No型のﾌｨｰﾙﾄﾞを作成したときは
ﾃﾞﾌｫﾙﾄ設定として表示ｺﾝﾄﾛｰﾙはTextBoxとなってしまいます。（ﾁｪｯｸﾎﾞｯｸｽでなく0,-1の表現）
マイクロソフトサポート情報
表示コントロールをチェックボックスにしたい場合は、フィールドのDisplayControlプロパティーを設定する必要があります。

On Error Resume Next
Dim objPrp As DAO.Property 'DAO.Propertyで明示的に宣言すること
Set objPrp = objField.Properties("DisplayControl")
If Err.Number = 3270 Then
    'ﾌﾟﾛﾊﾟﾃｨが存在しない場合はﾌﾟﾛﾊﾟﾃｨを作成する
    On Error GoTo SysError_Handler
    Err.Clear
    Set objPrp = objField.CreateProperty("DisplayControl", dbInteger, acCheckBox)
    objField.Properties.Append objPrp
End If