Private Sub cmdAdd_Click()
    On Error Goto Catch
    
    Dim cnn As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim idx As ADOX.Index    

    '' Create the composite unique index
    Set idx = New ADOX.Index
    With idx
        .Name = "Uidx_Products"
        .IndexNulls = adIndexNullsAllow
        .PrimaryKey = False
        .Unique = True

        .Columns.Append "Product_Name"
        .Columns.Append "Category_ID"
    End With

    '' Create the connection object
    Set cnn = CurrentProject.Connection
    
    '' Create the catalog object.
    Set cat = New ADOX.Catalog
    
    '' Assign connection to catalog object.
    Set cat.ActiveConnection = cnn
    
    '' Use catalog object to append the new index to the existing table.
    cat.Tables("Table1").Indexes.Append idx
    
    '' Insert some records for testing.
    cnn.Execute "INSERT INTO Table1(Product_Name, Category_ID) values ('Chocolade', 1)"
    cnn.Execute "INSERT INTO Table1(Product_Name, Category_ID) values ('Cheese', 2)"
    cnn.Execute "INSERT INTO Table1(Product_Name, Category_ID) values ('Chocolade', 2)"

    '' Close connection and release resources.
    cnn.Close
    Set cnn = Nothing
    Set cat = Nothing
    Set idx = Nothing
    
    MsgBox "Composite unique index has been successfully created in Table1."
    
    Exit Sub
    
Catch:
    MsgBox "cmdAdd_Click()" & vbCrLf & vbCrLf & " Error: " & Err.Description
End Sub

Private Sub cmdCreate_Click()
    On Error Goto Catch
    
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim col As New ADOX.Column
    Dim cnn As ADODB.Connection
    Dim idx As ADOX.Index
    
    '' Connect to current database.
    Set cnn = CurrentProject.Connection
    
    '' Create the catalog object.
    Set cat = New ADOX.Catalog
    
    '' Assign connection to catalog object.
    Set cat.ActiveConnection = cnn
        
    '' Create a new table call Table2.
    Set tbl = New ADOX.Table
    tbl.Name = "Table2"        

    '' Add columns to this new table.
    tbl.Columns.Append "ID", adInteger
    tbl.Columns.Append "Product_Name", adVarWChar, 200
    tbl.Columns.Append "Category_ID", adInteger
    tbl.Keys.Append "PrimaryKey", adKeyPrimary, "ID"
    
    '' Specify the ID primary key column to be AutoNumber field.
    With tbl.Columns.Item("ID")
        Set .ParentCatalog = cat
        .Properties("Autoincrement") = True
    End With
    
    '' Append the table to catalog
    cat.Tables.Append tbl
    
    '' Create the composite unique index
    Set idx = New ADOX.Index
    idx.Name = "Uidx_Products"
    idx.IndexNulls = adIndexNullsAllow
    idx.PrimaryKey = False
    idx.Unique = True
    
    '' Append two columns to the index.
    idx.Columns.Append "Product_Name"
    idx.Columns.Append "Category_ID"

    '' Append the index to the table we just created.
    tbl.Indexes.Append idx
    
    '' Insert some records for testing.
    cnn.Execute "INSERT INTO Table2(Product_Name, Category_ID) values ('Chocolade', 1)"
    cnn.Execute "INSERT INTO Table2(Product_Name, Category_ID) values ('Cheese', 2)"
    cnn.Execute "INSERT INTO Table2(Product_Name, Category_ID) values ('Chocolade', 2)"

    '' Close connection and release resources.
    cnn.Close
    Set cnn = Nothing
    Set tbl = Nothing
    Set cat = Nothing
    Set col = Nothing
    Set idx = Nothing
    
    MsgBox "Table and composite unique index have been successfully created."
    
    Exit Sub
    
Catch:
    MsgBox "cmdCreate_Click()" & vbCrLf & vbCrLf & " Error: " & Err.Description
End Sub