テーブル構造の変更

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.Type = adDate 
'    ColTemp.DefinedSize = 24
    ColTemp.Attributes = adColNullable 'Nullヲ許容
   
    ' カタログを開きます。
    catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & "C:\MYDB.mdb"
    
    '変更対象テーブル
    Set tblAlt = catDB.Tables("テーブル名をここに入力")
    
    With tblAlt
        ' フィールドを作成し、新規の Table オブジェクトの
        ' Columns コレクションに関連付けます。
        With .Columns
            .Append ColTemp 
        End With
    End With
    
    Set catDB = Nothing
    msgbox "データ構造パッチ完了"
    Exit Sub

end sub