Private Sub Befehl68_Click()
On Error GoTo Err_Befehl68_Click
 
 
    Dim DB As Database
Set DB = CurrentDb
DB.Execute "Delete * MPreis - Auswertung"
 
Exit_Befehl68_Click:
    Exit Sub
 
Err_Befehl68_Click:
    MsgBox Err.Description
    Resume Exit_Befehl68_Click