Problema de AccessViolation con Adodataset
 

Muy buenas amigos a continuacion les muestro mi parte del codigo que me da problema:

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

funciona todo bien pero en cierto momento y sin seguir un parametro en especifico me surge la siguiente Excepcion y de verdad no tengo idea de porque se genera

Project program1.exe raised exception class EAccessViolation with message Access Violation at adres 0040212E in module Program1.exe write of adress 0000000B. Process stopped. Use Step or Run to continue. luego me salta otro mensaje que me dice

EOleException with message [Mysql][ODBC 5.1 Driver][mysqld-4.1.16-nt] your SQL syntax; check the manual that corresponds to you Mysql server version for the rigth syntax to use near '$>' at line 1.