Datenbank2.Execute "INSERT INTO Output VALUES ('1','2');"

    Dim cnn As New ADODB.Connection
    Dim cat As New ADOX.Catalog
    Dim tbl As New Table
 
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & App.Path & "\Output.mdb"
    tbl.Name = "Output"
    tbl.Columns.Append "Feld1", adInteger
    tbl.Columns.Append "Feld2", adVarWChar, 50
    cat.Tables.Append tbl
    Set cnn = cat.ActiveConnection
    cnn.Execute "INSERT INTO [Output]([Feld1],[Feld2]) VALUES (1,'2');"
 
    cnn.Close
    Set cnn = Nothing