error e busqueda

[josi]

hola a todos

tengo un form de busqueda de clientes estoy usndo accses
cuando trato de hacer una busqueda me sale este error
[controlador odbc accses] 'no concieden los tipos de datos en la exprecion de criterios'

y este es el codigo:

var sql: string;
begin
clienteQuery1.CLOSE;
clienteQuery1.sql.clear;

IF LENGTH (EDIT1.TEXT) > 0 THEN
SQL:= 'SELECT * FROM consultacliente WHERE codigo =' + QUOTEDSTR (EDIT1.TEXT)
ELSE
SQL:= 'SELECT * FROM consultacliente';

clienteQuery1.SQL.ADD (SQL);
clienteQuery1.ACTIVE := TRUE;

IF
clienteQuery1.RecordCount < 1 THEN
BEGIN
SHOWMESSAGE ('NO HAY CLIENTE CON ESTE CODIGO');
END
ELSE
EDIT1.TEXT:= clienteQuery1.FIELDVALUES ['codigo'];
end;

si hay otra forma de hacerla le agradeceria mucho.