SQL insert into 中日期字段值为一个变量如何表达，谢谢！

danhanqing

Private Sub 报餐管理_确认报餐_Click()
发生日期 = CDate(Me.Controls(页面名称 & "_" & "年份") & "/" & Me.Controls(页面名称 & "_" & "月份") & "/" & Me.Controls(页面名称 & "_" & "日"))
发生数量 = Val(Me.Controls(页面名称 & "_" & "人数"))
发生单价 = Val(Me.Controls(页面名称 & "_" & "餐标"))
    Dim Conn As adodb.Connection
    Set Conn = LinkDB
    Dim Rs As New adodb.Recordset
    SQL = "select * from 财务收支总表 where 科目='支出' and 二级科目='食宿费' and 内容描述='员工伙食费' and 日期=日期"
    Rs.Open SQL, Conn, 1, 3
       If SQL <> "" And Not Rs.EOF Then
          Myid = Rs("ID")
          SQL = "Update 财务收支总表 set 日期 = '" & 日期 & "',科目='支出',二级科目='食宿费',内容描述='员工伙食费',单位='元',数量='" & Me.Controls(页面名称 & "_" & "人数") & "',单价='" & Me.Controls(页面名称 & "_" & "餐标") & "' where id = " & Myid & ""
          Conn.Execute SQL
          操作方式 = "【更新】"
       Else
          SQL = "INSERT INTO 财务收支总表 (日期,科目,二级科目,内容描述,单位,数量,单价) VALUES (发生日期,'支出','食宿费','员工伙食费','元',发生数量,发生单价)" '本句中发生日期、发生数量、发生单价都是变量，请教如何表达，谢谢！
          Conn.Execute SQL
          操作方式 = "【新增】"
       End If
    Conn.Close: Set Conn = Nothing: Set Rs = Nothing
    Call 刷新报餐明细列表
    MsgBox "报餐" & 操作方式 & "成功……"
End Sub

vitrel

在SQL语句中，日期前后要加#，例如：
sql = "select * from 行情 where 日期=#" & Date & "#"