データベースから該当するデータを抽出するには？ (ID:104123)

名前

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

本文 Private Sub txtID_LostFocus() '← 顧客IDを入力するところ Dim db As Database, ws As Workspace, td As TableDef Dim fd As Field, rs As Recordset dim oRs as Recordset 'レコードセット dim sSQL as String 'SQL編集文字列 Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("C:\work\kokyaku.mdb") '【データの取得/ID指定時】 sSQL = "SELECT * FROM Kokyaku WHERE 顧客ID = '" & txtID.text & "'" Set oRs = db.OpenRecordset(sSQL) End Sub としたのですが、下記のようなエラーが出ます。 ”抽出条件でデータ型が一致しません。(Error 3464)” IDはInteger型ですけど、どこかおかしいと個ありますか？ 更新/削除も上記のようなプログラムでOKということですか？