const adDate = 7 const adColNullable = 2 '列に、Null 値を含めることができます。 call DoPatch sub DoPatch Dim catDB Dim tblAlt Set catDB = CreateObject("ADOX.Catalog") Set ColTemp= CreateObject("ADOX.Column") ColTemp.Name = "ひづけ" ColTemp…