表示はどうするんでしょうか？ (ID:106459)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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 リンクするまではできたんですが、表示がわかりません。 この後どうすればよろしいんですか？