comboboxにaccessをつなぐ (ID:106425)

名前

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

本文 Public ws As DAO.Workspace Public db As DAO.Database Public rs As DAO.Recordset 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 どこが間違っているかわかりません。 エラーは出ないんですが、データーも出てきません。