[OSのVer]：Windows　　　　[VBのVer]：VB.NET　
データベースから条件に一致した項目をリストボックスに表示する方法がわかりません
わかる方ご教授よろしくお願いします。
データベース：ACCESS

社員マスタの社員姓テーブルから「石田」を検索し、
リストボックスに、条件に一致した（石田）社員名を表示します。

社員マスタ構成
・社員ID
・社員姓
・社員名

＜ソース＞
Dim oleCn As OleDb.OleDbConnection = New OleDb.OleDbConnection
    Dim oleDa As OleDb.OleDbDataAdapter
    Dim dtSet As DataSet = New DataSet("A")
    Dim dtTable As DataTable
    Dim dtRow As DataRow

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As        
　oleCn.ConnectionString = _
                            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=A.mdb;" & _
                            "Persist Security Info=False"

        '選択SQL文を作成してレコードを取得する
        oleDa = New OleDb.OleDbDataAdapter("SELECT * FROM 社員マスタ", oleCn)
        oleDa.Fill(dtSet, "社員マスタ")

        'データセットからテーブルを取得する
        dtTable = dtSet.Tables("社員マスタ")


        oleDa = New OleDb.OleDbDataAdapter( _
            "SELECT  * FROM  社員マスタ " & _
            "WHERE 社員姓 = '石田' ", oleCn)

        ' データ検索
        Dim ds As New DataSet
        oleDa.Fill(ds)

　　　　　
------------------------------------------------------------------
ここから先でリストボックスに表示するところでつまってしまいました・・・
よろしくお願いします。
　

お世話になります。

以下のような感じでしょうか。

>         oleDa = New OleDb.OleDbDataAdapter( _
>             "SELECT  * FROM  社員マスタ " & _
>             "WHERE 社員姓 = '石田' ", oleCn)
>             ' データ検索
>             Dim ds As New DataSet
oleDa.Fill(ds, "社員マスタ")
Dim dt As DataTable = ds.Tables("社員マスタ")

For Each row As DataRow In dt.Rows
　　Me.ListBox1.Items.Add(row("社員ID").ToString())
Next

遅くなり申し訳ございません。教えていただいた通りにしたら解決できました。
ありがとうございました。