谁能给我发个adodb连接数据库的例子吗？

private
    { Private declarations }
    adoc : Variant;
    adocmd : Variant;
    ador : Variant;procedure TForm1.btnConnectionClick(Sender: TObject);
begin
  adoc := CreateOleObject('ADODB.Connection');
  adoc.Open ('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=F:\Leewei\Books\Delphi5\Book3\Datas\Northwind.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False');
end;procedure TForm1.btnOpenTableClick(Sender: TObject);
begin
  ador := CreateOleObject('ADODB.RecordSet');
  ador.ActiveConnection := adoc;
  ador.Open('Select * from め', adoc, adOpenStatic, adLockOptimistic, adCmdText); 
  fillData;
end;