抽出条件でデータ型が一致しません。(エラー 346

質問

フロント：Access2003 , バック：SQL Server7.0

テーブル名
dbo_TB1(ODBCテーブル)

Access2003
日付　データ型(日付/時刻型) yyyy/mm/dd
SQL7.0
日付　データ型(smalldatetime) yyyy/mm/dd

以下のモジュールを実行すると、

抽出条件でデータ型が一致しません。(エラー 3464)

とエラーが出てしまいます。

よろしくお願いします。

Dim myDate As Date

myDate = Date

　　strSQL = Empty
　　strSQL = strSQL & "SELECT * FROM dbo_TB1"
　　strSQL = strSQL & " WHERE 日付 = #" & myDate & "#"
　　strSQL = strSQL & " ORDER BY 日付"

Forms![フォーム].Form.RecordSource = strSQL

回答No.1

山田 太郎（@f_a_007）

http://www.amy.hi-ho.ne.jp/jbaba/sqltest.htm

Jet データベースエンジンの SQL の文法で書いているのが原因かも知れませんね。私は、Access プロジェクト＋SQL　Serverの経験ししかありませんので断定はできません。が、その場合は、全て SQL　Servert　対応のSQL文にしていました。

strSQL = strSQL & " WHERE 日付 = ’" & myDate & "’"

と言った具合です。

ODBC接続は経験していませんので間違っている可能性もありますが・・・。