ayuda con salida de indices

[danielmj]

hola, a ver si sabes por que me tira el error...

Código Delphi [-]
adoquery1.DataSource:= form1.dtSource;
  AdoQuery1.Close;
  AdoQuery1.SQL.Clear;
  AdoQuery1.SQL.Add ('Select Apellidos, Nombre, Tinte');
  AdoQuery1.SQL.Add ('FROM database.mdb');
  AdoQuery1.SQL.Add ('WHERE Apellido like ' + combobox1.text);
  AdoQuery1.Open;

  ListView1.ViewStyle:= vsReport;
  ListView1.Columns.Clear;
  ListColumn:= ListView1.Columns.Add;
  ListView1.Columns[0].Width:= 0;
  for i:= 1 to adoquery1.FieldCount -3 do
  begin
    ListColumn:= ListView1.Columns.Add;
    ListColumn.Width:= 160;
    ListColumn.Caption:= adoquery1.Fields[i].FieldName;
  end;
  adoquery1.First;
  while not adoquery1.Eof do
  begin
    with ListView1.Items.Add do
      for i:= 1 to adoquery1.FieldCount -3 do
        SubItems.Add(adoquery1.Fields[i].AsString);
        adoquery1.Next;
  end;

El error lo da en la linea del

Código SQL [-]
FROM database.mdb

dice que hay un error de sintaxis.

A ver si puedes ayudarme ecfisa por que creo que el from esta bien puesto. Y la base de datos se encuentra en el mismo directorio que la aplicacion.

saludos.