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

よっしー 2003-03-27 04:25:11 No: 106459

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 21:52:51 No: 106460

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