Dim Katalog2 As New ADOX.Catalog
    Dim Tabelle2 As New ADOX.Table
    Dim Spalte1 As New ADOX.Column
    Dim Spalte2 As New ADOX.Column
 
    Katalog2.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\Output.mdb"
 
 
    Tabelle2.Name = "Output"
    Katalog2.Tables.Append Tabelle2
    Spalte1.Name = "Feld2"
    Katalog2.Tables("Output").Columns.Append Spalte1, adInteger
    Spalte2.Name = "Feld1"
    Katalog2.Tables("Output").Columns.Append Spalte2, adVarChar, 1
 
Dim Datenbank2 As New ADODB.Connection
Set Datenbank2 = Katalog2.ActiveConnection
 
Datenbank2.Execute "INSERT INTO Output VALUES ('1','2');"