主题：[求助]关于自制筛选的问题

Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = "日期 = '" & .Value & "'"
End If

If Filter > "" Then
Tables("表A").Filter = Filter
End If

如上，这是一个筛选按钮的代码，筛选列“日期”的列数据类型为日期时间，格式为2014-02-05等，筛选条件为同样的年月日，但是我希望能将筛选条件变成满足“日期”列中的前4字符（即年份），请问是否有这样的代码能做到如果"cmbProduct"满足前4字符，就可以筛选出来

Dim Filter As String

With e.Form.Controls("cmbProduct2")
If .Value IsNot Nothing Then
Dim d As Date = new Date(val(.Value),1,1)
Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "#"

End If
End With

With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "报告编号 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
Tables("表A").Filter = Filter
End If

现在两个指令均已经输入，但是在点击按钮时，只能读取其中一个条件，不能筛选到同时满足条件的