削除の時エラーがでます

質問

こんにちは
アクセスのデーター１件削除を作っているのですが、どうしてもエラーが出てしまいます。どなたかご教授下さい。
ＮＴサーバーのシステムＤＳＮにデーターベースの登録はしていて他の画面では参照や追加は出来ています。
<%
adrs=session("adrs")
'=========================================================
'1件削除（e-mail.mdb の mail1 テーブル）
'=========================================================
Dim SQL,RS
Set RS = Server.CreateObject("ADODB.Connection")
RS.open "e-mail"
RS.Execute ("DELETE FROM mail1 WHERE email="& adrs &"")
%>

エラーの内容
Microsoft OLE DB Provider for ODBC Drivers エラー '80040e14'

[Microsoft][ODBC Microsoft Access Driver] クエリ式 'email=hogemail@hoge.co.jp' の 構文エラー : 演算子がありません。

よろしくお願いします。

回答No.1

Mizyu · ベストアンサー

adrsは文字列のようなので「'」をつけましょう。
RS.Execute ("DELETE FROM mail1 WHERE email='"& adrs &"'")

こんな感じでしょうか。

お礼

早々の回答ありがとうございました。
問題なくできました。

補足

ポイントを発行しようとして良点にチェックを入れて締め切りをクリックしているのですが、良点か次点を選択して下さい。みたいなエラーが帰って来て質問を締め切れません。もう少し待って見てもう一度やってみますのでそれまで待っていてください。