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');"

Zitat:

also ich habe jetzt erst einmal deinen Vorschlag beherzigt, habe Werte in eine andere Tabelle geschrieben. Dieses Programm ist nicht für mich, sondern ich muss es im Rahmen einer Projektarbeit abgeben.

Zitat:

Um dieses Problem zu umgehen, habe ich nun folgendes gemacht. [...]

Zitat:

Und somit hat der "Kunde" nichts mehr zu meckern, und ich bin auch zufrieden. Allerdings sollte ich meine Wissenslücke bzgl. Datenbank und VB noch füllen.

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