Private Sub mnuABC_Click()
Dim Filter
Filter = CStr(Format(lblDate.Caption, "dd.mm.yyyy"))
Dim Dat As Date
' lblDate ist ein Label!
Dat = Format(lblDate.Captiondd.mm.yyyy"))
 
  If MsgBox("Letzten Filtervorgang vom  >> " & Filter & " <<  löschen", _
  32 + 4, "Frage") = 6 Then
  '...Löschvorgang einleiten
    Dim goDb As DAO.Database
    Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
    goDb.Execute "DELETE * FROM Irgendwas WHERE [Datum] = Dat "
  Else
    Exit Sub
  End If
End Sub