各位前辈，excel的操作代码我看不懂，能否我解释下，谢谢！

procedure TForm1.btn1Click(Sender: TObject);
var
  i: integer;
begin
  if FileExists(ExtractFilePath(Application.ExeName) + 'data.xls') then
  begin
    ds2.ConnectionString :=
      'DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=' +
      ExtractFilePath(Application.ExeName) + 'data.xls';    ds2.CommandText := 'select  top 30 * from [Table1$]';
    ds2.Active := true;    for i := 0 to dbgrd1.Columns.Count - 1 do
      dbgrd1.Columns[i].Width := 100;
  end;
end;
期中ConnectionString 的字符串怎样理解，readonly=1是不是“只读”，那“可读写”怎样修改呢？
ExtractFilePath（）是干什么用的？如果我不是exel文件放在另外一个目录，又该怎样设置呢？
谢谢！！！