Problemas con consulta SQL

[JerS]

Estoy haciendo una consulta sencilla con un ADODataset

Código Delphi [-]
    ADO.Close;
    ADO.commandtext:=('Select acceso from permisos p,detallepermisos d where cedula='+Quotedstr(cedula)+' and p.codigo=d.codigo and fecha=current_date()');
    ADO.Open;
      If Not ADO.RecordSet.EOF Then
        Permiso:=ADO.Recordset.Fields.Item[0].Value
      Else
        Permiso:=0;

la hace bien pero en cierto momento me arroja esta excepción y al parecer es que se esta embasurando el Commandtext, no se que opinan ustedes y en que me pueden ayudar?

he pensado en asignar la consulta a una variable tipo string y despues asignarla al Commandtext

*****Exepcion en el Cuerpo Principal del Sistema [MySQL][ODBC 5.1 Driver][mysqld-4.1.16-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1