主题：求助：条件筛选代码

你年月日的内容分别填写的是什么啊？

If cbx_riqi.Text <> "" Then
    Dim d_start As Date = new Date(Left(cbx_niandu.Text, 4), cbx_yuefen.SelectedIndex+ 1, cbx_riqi.Text)
    Dim d_end As Date = d_start.AddDays(1)
    filter += " And 日期 >= #" & d_start & "# And 日期 < #" & d_end & "#"
End If