以下程式示範如何透過 ADO 開啟一個 DBase 資料表：

procedure TForm1.Button1Click(Sender: TObject);
var
  Con : Connection;
  rs : RecordSet;
begin
  Con := CoConnection.Create;
  Con.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data;Extended
Properties=dBase 5.0','','',-1);
  rs := Con.Execute('SELECT * FROM Animals',EmptyParam,-1);
  while not rs.eof do
  begin
    Listbox1.Items.Add(rs.fields.Item['Name'].Value);
    rs.MoveNext;
  end;
end;

參考文件：
http://support.microsoft.com/support/kb/articles/Q230/1/25.ASP
http://support.microsoft.com/support/kb/articles/Q238/4/31.asp
http://support.microsoft.com/support/kb/articles/Q230/1/26.ASP