表示はどうするんでしょうか？

よっしー  2003-03-26 19:25:11  No: 106459  IP: [192.*.*.*]

Private Sub Combo1_Change()
'得意先をリンク
    Dim db     As Database
    Dim ws     As Workspace
    Dim rs     As Recordset
    Dim strSQL  As String

'データベースオープン

    On Error GoTo Err_Access_ERROR
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase("C:\Documents and Settings\hayashi\デスクトップ\林.mdb")
    On Error GoTo 0
    
'SQL文の作成
    
    strSQL = "SELECT tokuisakiNM FROM M_tokuisaki"

    Set rs = db.OpenRecordset(strSQL)
    

End Sub

リンクするまではできたんですが、表示がわかりません。
この後どうすればよろしいんですか？

編集 削除
Say  2003-03-27 12:52:51  No: 106460  IP: [192.*.*.*]

どう表示したいのかわかりませんが、
いちばん簡単なのはADO Data ControlとDataGrid Controlを
使うことでしょう。

編集 削除