Zitat:

Laufzeitfehler '3219' Invalid operation.

    Dim SQL As String
    Dim rs As Recordset
    reply = MsgBox("Wollen sie wirklich alle Einträge löschen?", vbYesNo, _
      "Datenbank löschen")
 
    DBFile = App.Path + "\DVDs.MDB"
    Set DB = Workspaces(0).OpenDatabase(DBFile, True, False)
 
    If reply = vbYes Then
      SQL = "DELETE * FROM Sammlung"
      Set rs = DB.OpenRecordset(SQL)
    End If