Set table = New ADOX.table
table.Name = "tbl_matrix"
cat.Tables.Append table 'Catalog erweitern
 
'über alle Felder der Vorlage
For j = 0 To intFieldCount
    Set column = New ADOX.column
    With column
        Set .ParentCatalog = cat
        .Name = rstMatrix.Fields(j).Name
        .Type = rstMatrix.Fields(j).Type
        .NumericScale = rstMatrix.Fields(j).NumericScale
        'Spalte einfügen
        cat.Tables("tbl_matrix").Columns.Append column
 
        'Schlüsselfelder der Vorlage identifizieren und in neuer Tabelle anlegen
        If rstMatrix.Fields(j).Attributes = adKeyPrimary Then
            table.Keys.Append rstMatrix.Fields(j).Name, adKeyPrimary, _
              rstMatrix.Fields(j).Name
        End If
 
    End With
Next