主题：[求助]时段筛选求助

增加只筛选当前用户本月，下面代码怎么修改？求助

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("工作日志").LoadFilter = Filter & "创建者 = '" & _UserName & "'"
DataTables("工作日志").Load()