안녕하십니까.
ADO를 이용해서 Excel파일을 읽어오는데 첫째라인을 읽지 못합니다.
첫째라인을 공백으로 두워도 자료가 있는 첫번째 라인을 읽지 못하는데 도움바랍니다.

아래는 파일을 열고 읽는 소스입니다.

감사합니다.

procedure TForm1.BitBtn1Click(Sender: TObject);  // 파일열기
begin
  if not OpenDialog1.Execute then Exit;

  Panel2.Caption := '';
  Panel2.Caption := TrimRight(OpenDialog1.Files.Text);

  with ADOConnection1 do
  begin
    Connected := False;
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
                        'Data Source=' + OpenDialog1.FileName + ';Mode=Share Deny None;Extended Properties=Excel 8.0';

    Connected := True;

    GetTableNames(ListBox1.Items);
    if ListBox1.Items.Count > 0 then ListBox1.ItemIndex := 0;
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);  // 파일읽기
begin
  try
    ADOQuery1.Connectionstring := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Panel2.Caption + ';Extended Properties=excel 8.0';
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from '+'[' + ListBox1.Items[ListBox1.ItemIndex] + ']');
    ADOQuery1.Open;
  except
  end;
end;