Private Sub Form_Load()
    '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")
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