请教Delphi连接Access数据库有没有类似以下VB的语句

请问Delphi连接Access数据库有没有类似以下VB的语句?
Private   Sub   Command1_Click()
        Dim   cnn   As   New   ADODB.Connection
        Dim   rs   As   New   ADODB.Recordset
        cnn.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=H:\data\salse.mdb;Persist   Security   Info=False "
        cnn.Open
        rs.Open   "select   *   from   Customer ",   cnn,   adOpenKeyset,   adLockReadOnly
        Set   DataGrid1.DataSource   =   rs
End   Sub


------解决方案--------------------
var
conn:TADOConnection;
qry:TADOQuery;
begin
conn:=TADOConnection.Create(Application);
conn.LoginPrompt:=False;
conn.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\data\salse.mdb;Persist Security Info=False ';
conn.Connected:=True;
qry:=TADOQuery.Create(Application);
qry.Connection:=conn;
qry.SQL.Text:= 'select * from Customer ';
qry.Open;
end;

可以建立一个DataModule,创建TADOConnection,TADOQuery等
------解决方案--------------------
一个連接，一个數據集，一个數據源，再一个數據顯示控件（如數據柵格）

Delphi中一样啊，delphi中也有ADO系列组件。
procedure TForm1.Button1Click(Sender: TObject);
var
ADOCon: TADOConnection;
AQuery : TADOQuery;
Ds : TDataSource;
begin
ADOCon := TADOConnection.Create(self);
ADOCon.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source '
+ ' =H:\data\salse.mdb;Persist Security Info=False ';
AQuery := TADOQuery.Create(self);
AQuery.Connection := ADOCon;
AQuery.SQL.Clear;
AQuery.SQL.Add( 'select * from Customer ');
Ds := TDataSource.Create(self);
Ds.DataSet := AQuery;
DataGrid1.DataSource := DS;
AQuery.Active := true;
end;