Dataコントロールでデータベースに連結しDBgridに表示し様としています。
この時、MDBファイルは複数のFieldがあり、その一部をだけを抽出します。
その方法がわかりません。次ぎのソースでは「全項目Field」を抽出して
しまいます。よろしくお願いいたします。

    Dim DBfile As String      'DBファイル名　
    Dim db As Database
    Dim ds As Recordset
    DBfile="c:\MDBfile.mdb"
    Set db = DBEngine.Workspaces(0).OpenDatabase(DBfile)
    Set ds = db.OpenRecordset("Table", dbOpenDynaset)
'   ds.Filter = "Name Like '" & txtKey & "*'   "
'   Set ds = ds.OpenRecordset
    Set Data1.Recordset = ds

書籍で見つけたのですが、
    Dim sql as String
    sql="SELECT field1,field3 From Table"
    Data1.RecordSource = sql
のような記述があったのですが、これをどのように使うのかわかりません。
上（ソース）の方法では関係ないことなのか？も知れません。

>     Set ds = db.OpenRecordset("Table", dbOpenDynaset)
上の文の "Table" の部分に
>"SELECT field1,field3 From Table "
を入れてみるとか。

> >     Set ds = db.OpenRecordset("Table", dbOpenDynaset)
> 上の文の "Table" の部分に
> >"SELECT field1,field3 From Table "
> を入れてみるとか。

Say様、ありがとうございました。解決！！！
厚かましいのですが、Where文なども同様なのでしょうか。やってみます。
Mdbは始めたばかりで、またお願いすることもあろうと思います。
よろしくお願いいたします。

> > >"SELECT field1,field3 From Table "
> 厚かましいのですが、Where文なども同様なのでしょうか。やってみます。
Where句は From Table のあとに続けてください。