请问日期更新问题

chenxu9141

[气瓶信息]![检验日期]用的是短型,可是总是跳出来类型不匹配,是不是表达式些错了,请教各位,谢谢

Private Sub 命令7_Click()

On Error GoTo Err_命令7_Click

B = Form![自编号]

Set r = CurrentDb.QueryDefs("气瓶信息查询1")

     s = "UPDATE 气瓶信息 SET [气瓶信息]![检验日期] =" + Date + "WHERE [气瓶信息]![自编号]=""" + B + """"

     

   r.sql = s

    r.Execute

     MsgBox "记录保存成功"





    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_命令7_Click:

    Exit Sub