DAOでAccessに接続 (ID:105406)

名前

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

本文 どなたか教えてください。 Accessからデータを抽出しようとしているのですが、 「型が一致しません」と、エラーが出ます。 なぜ、このエラーが出るか、お教えください。 ソースは以下のように書いてあります。 Public ws As DAO.Workspace Public db As DAO.Database Public rs As DAO.Recordset -------------------------------------------------------- Private Sub Command1_Click() 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:\db1.mdb") On Error GoTo 0 'SQL文の作成 strSQL = "SELECT * FROM Hyou " & _ "where ID = 1" Set rs = db.OpenRecordset(strSQL) 'ここでエラーが出ます ヘルプや他の方が書いたソースを見てもエラーがなぜ出るのか 検討がつきません。 よろしくお願いいたします。