点击按钮，生成一个日期区间字段的问题，（如“200902”）

Private Sub Command1_Click()

    Dim strsql As String

    strsql = "INSERT INTO tblwyfmx ( jbbh, hzxm, gzdw, gzbm, kklh, kkdy, kkfh, fyqj, jkrq, qcjy, qcjy2, sfei, dfei, nfei, wfei, ffei, qtfei1, qtfei2, qtfei3, zcjm, dwjm, qtjm1, qtjm2, qtjm3, qmjy, qmjy2, sfjk, bqyj, bqsj, czyid )" _
           & "SELECT tblCode_jbxx.jbbh, tblCode_jbxx.hzxm, tblCode_jbxx.gzdw, tblCode_jbxx.gzbm, tblCode_jbxx.kklh, tblCode_jbxx.kkdy, tblCode_jbxx.kkfh, tblwyfmx_sc.fyqj, tblwyfmx_sc.jkrq, tblwyfmx_sc.qcjy, tblwyfmx_sc.qcjy2, tblwyfmx_sc.sfei, tblwyfmx_sc.dfei, tblwyfmx_sc.nfei, tblwyfmx_sc.wfei, tblwyfmx_sc.ffei, tblwyfmx_sc.qtfei1, tblwyfmx_sc.qtfei2, tblwyfmx_sc.qtfei3, tblwyfmx_sc.zcjm, tblwyfmx_sc.dwjm, tblwyfmx_sc.qtjm1, tblwyfmx_sc.qtjm2, tblwyfmx_sc.qtjm3, tblwyfmx_sc.qmjy, tblwyfmx_sc.qmjy2, tblwyfmx_sc.sfjk, tblwyfmx_sc.bqyj, tblwyfmx_sc.bqsj, tblwyfmx_sc.czyid" _
           & " FROM tblwyfmx_sc INNER JOIN tblCode_jbxx ON tblwyfmx_sc.jbbh = tblCode_jbxx.jbbh;"

    DoCmd.RunSQL strsql

    MsgBox "生成成功!", vbInformation, "提示成功"

End Sub

用上面的追加查询，自动生成好多条记录。

一个日期型字段“费用期间”不知道如何生成，它的格式是“200902”，就是是当前系统时间的月份。

写在这串代码里能行吗？还是另外在定义一个 strsql ？？

该如何写？？

多谢！