'Datenbank öffnen
    Dim Db As Database
    Dim Tabelle As Recordset
    Dim dbFile As String
 
    dbFile = App.Path + "\DATA.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("MP3")
 
Private Sub cmdSave_Click(Index As Integer)
    'Neuen Datensatz hinzufügen
    Tabelle.AddNew
    Tabelle("Datum") = "txtDate"
    Tabelle("Interpret") = "txtInterpret"
    Tabelle("Titel") = "txtTitel"
    Tabelle.Update
    Tabelle.Bookmark = Tabelle.LastModified
End Sub
 
Private Sub cmdCancel_Click(Index As Integer)
    Unload Me
 
    'Datenbank schließen
    Tabelle.Close
    Db.Close
    Set Tabelle = Nothing
    Set Db = Nothing
End Sub