Option Explicit

Private Const FILE_NAME_DB As String = "Score.accdb"
'Private Const FILE_NAME_DB As String = "Score.mdb"

Sub test()
    Const NAME_TABLE As String = "tblTest"
    Dim arrayColumn(2, 1) As Variant
    arrayColumn(0, 0) = "ID"
    arrayColumn(0, 1) = adInteger
    arrayColumn(1, 0) = "sName"
    arrayColumn(1, 1) = adVarWChar
    arrayColumn(2, 0) = "sMemo"
    arrayColumn(2, 1) = adLongVarWChar
    Dim sDBPath As String
    sDBPath = ThisWorkbook.Path & "\" & FILE_NAME_DB
    Dim oClsDBCtrl As New clsDBCtrl
    With oClsDBCtrl
        .DBPath = sDBPath
        Call .showTableInfo
        Call .createTable(NAME_TABLE)
        Call .showTableInfo(NAME_TABLE)
        Call .addColumn(NAME_TABLE, arrayColumn)
        Call .showTableInfo(NAME_TABLE)
        Call .deleteColumn(NAME_TABLE, "sMemo")
        Call .showTableInfo(NAME_TABLE)
        Call .deleteTable(NAME_TABLE)
        Call .showTableInfo
    End With
End Sub