Excel内のデータをSQLで検索するには (ID:117426)

名前

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

本文 EXCELをSQL文を使って検索しようとしているのですが実行時エラー３０６１、パラメータが少なすぎます１を指定してくださいと出ます。自分のコードのどこかがおかしいと思うのですが分かる方いましたら教えてくださいよろしくお願いします。環境はＸＰでＶＢ６です。検索しようとしているのはＩＤで、K41B000のようなデータを検索しようとしています。 Dim ws As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordset Dim strXLSName As String Dim strSQL As String strXLSName = App.Path & "\test.xls" Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase(strXLSName, False, False, "EXCEL 8.0;HDR=YES;") LabelCondition.Caption = searchNum strSQL = "SELECT * FROM [Sheet1$] WHERE [ID] = " & searchNum Debug.Print strSQL Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)