Löschen via Query (ADO -> Jet -> mdb) ab Datum

[Bitworm]

Hi !

Ich möchte gerne in einer Tabelle (ADO -> Jet -> mdb) alle alten Eintrag ab
einem bestimmten Datum löschen. Dazu habe ich folgendes versucht:

Code:

      MCP.querycleanup.Close; 
      MCP.querycleanup.SQL.Text := 'DELETE FROM telegramme WHERE datum < :datumswert'; 
      MCP.querycleanup.ParamCheck := True;  
      MCP.querycleanup.Parameters.ParamByName('datumswert').DataType := ftDateTime; 
      MCP.querycleanup.Parameters.ParamByName('datumswert').Value := now-parameter.HaltezeitFMS; 
      MCP.querycleanup.Open;

Als Antwort kriege ich einen OLE-Fehler 80040E10 querycleanup ist vom Typ ADOQuery.
Hat jemand einen Tip für mich, was ich da die ganze Zeit falsch mache ?