请各位老师指教 !本人初学,想在ACCESS数据库一个窗体的确认按钮执行如下程序, 提示语法错误,错在哪?

[csdnzwt]

Private Sub Command3_Click()
Dim s1 As String
s1 = "confirm?"
If MsgBox(s1, vbOKCancel) = vbOK Then
Set r = CurrentDb.QueryDefs("query6")
r.sql = "UPDATE ATM SET STAT= "0" WHERE (ATMNO = (" & Me.pleaseenter & "))"
r.Execute
MsgBox "ok!"
End If
End Sub

[乐乐呵呵和和乐乐]

"UPDATE ATM SET STAT= "0" WHERE (ATMNO = (" & Me.pleaseenter & "))" 这上面的"0"，不是明显的错误吗？

[zzzhang]

"0" ，不打引号试试